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l.Q PROGRAM OVERVIEW 

PIP is basically an I/O device manipulator. It transfers data from one 
device to another, perhaps doing some conversion on the way. PIP works with two 
types of I/O: sequential and file oriented. File oriented merely means that the 
entire file resides on some device (DECTAPE, DISK, etc.) from which any part of 
the file may be retrieved at any time. On such a device there exists an index 
which has the file names, the record numbers and lengths of each file. Sequential 
input is defined as a string of one data word after another, where generally the 
length of the input and/or output is unknown and where it is generally impossible 
to "backspace" the input device to retrieve characters once they are read in or 
written out. PIP can transfer files to files, files to sequential, sequential to 
sequential, and sequential to files. 

PIP is composed of several "handlers". Each handler does one conversion 
task {binary, source, etc.). The initial display chooses which handler to use. 
The handler does not do any I/O; rather it sets flags which tell the low level 
I/O routines what to do. This is done by two "flags" called BFLAGl and BPLAG2 
(for exact values see the system routine descriptions at the end of this manual) . 
If either BFLAGl or BFLAG2 is zero, then file oriented I/O is to be used instead 
of sequential. If an input or output is sequential, the handler gives an AUXIN 
to get a character or AUXOUT to output a character. Thus, from a high level 
point of view, the handler does not know or care what sequential device it is 
using; all it knows is that when it gives an AUXIN, the I/O routine will return 
with a character in the AC (the AUXIN also checks for CTRL/d, CTRL/P, and CTRL/Z) . 
For file to file operations a "FILEC" call looks up the output file using "DIRECT* 
and then uses "COPY" to transfer all the data. (These routines are described in 
system subroutine calls, section 2.0.) For file to sequential or sequential to 
file operations, separate "mini-handlers" are often required. For example, the 
binary handler has two handlers, BINTAP for input from tape and BTAPE for output. 
Note that these cannot both be in use at the same time because file to file 
operations are done by "FILEC". Thus, PIP is merely a grouping of subroutines, 
with a very small main loop. This modularity makes PIP fairly big, but it also 
makes it easy to understand and to modify. Most of the key subroutines are 
described in the back of the next section. 

2.0 PIP SUBROUTINES 

PIP is basically a set of general purpose low level subroutines and a master 

coordinating loop which calls them. This section describes what these routines 
do and how to call them. Instead of using a JMS NAME type of call, the equal sign 
is used as follows: 



PNAME = JMS NAME 
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Thus, by just stating PNAME, the subroutine call is obtained. In almost all 
cases all the tags defined in a subroutine begin with the same letter as the 
subroutine name. 



TAPE Sets up the index information area (locations INDEX through CUPPER) to 

use tape rather than disk. Sets the unit to between 0 and 7. 

DISC Same as TAPE except the unit is set between 10 and 47, 

PUSH Takes the "FBLOCK" area (FSIZE through PNAME+3) and moves it to an 

area called the "lower save" area # 

POP Transfers the lower save area back to the FBLOCK area. 

HPUSH Transfers the FBLOCK area to the "high save" area. 

HPOP Transfers the high save area to the FBLOCK area. 

LEADER Generates about 120 characters of leader-trailer on the chosen output 
device (BFLAG2) . 

FILEC Copies a named file from one unit to another. The input unit was 

already "looked up" and exists in the high save region. The output 
file name and unit are still in FBLOCK. FILEC will do the rest 
and return to PIP. 

PUTL Puts a character on the TTY. AC=character on entry; AC=0 on return. 

DISPLAY DISPLAY 

XYZ XYZ , Horizontal coordinate (1 word) 

Vertical coordinate (1 word) 
Text/F Q and A type 

H text 

end\/. 

Display will display the message pointed to by the next word. The 
first and second words are the starting horizontal and vertical 
positions on the screen. The text is standard Q and A type text, but 
no replies are permitted. This routine displays the message once and 
then returns. To refresh you must go back and redisplay it. 

PIP Restarts PIP. 

DIAL Returns to the DIAL monitor. 

COPY Copies blocks from one unit to another. INBLOCK contains the first 

input block number, OUTPUT contains the output unit. OUTNUM contains 
the two's complement of the number of copies to make. 

CHECKIO Checks to see if a CTRL/D or CTRL/P was typed. 



GETL 
xxxx 
xxxx 

DYRECT 



comes here if no character typed (1st word). 

comes here with typed character in the AC (2nd word). 

Looks up the name of a file on a device index. The index information 
is contained in INDEX and ILEN and the unit in FUNIT. The name of 
the file is in FNAME and the type of file (source or binary) in FTYPE 
(1 or 2). There are two types of files: input and output. If FWHAT=1, 
then it is an input file. If the file exists, then the starting block 
number is left in FBNUM and the length in FSIZE. If the file does not 
exist, the routine issues a "NO" display. If the file is output, you 
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supply the length in FSIZE and the routine will return the block number 
in FBNUM. The routine handles the "REPLACE" and the "NO" messages. 

DECODE This routine will get a line from the Teletype, check its syntax, and 
XYZ then return. It will display the user's message at XYZ (see DISPLAY) 

in addition to displaying a "REPLY". The reply is of the form: 



X 1234 ; ABCDEFGH , 4321 

single octal 8 six bit octal 

letter number characters number 

The first letter goes in the location "FTYPE" in 8 bit ASCII, the first 
octal number goes into FUNIT, the 8 character name goes into FNAME 
through FNAME+2 (filled by 77's), and the last number goes into FSIZE. 
Any missing numbers go to 0, any characters missing from the FNAME go 
to 77. 

MOVE The move subroutine will move NUMBER number of words from FROMLOC to 

FROMLOC TOLOC. 

TOLOC 

NUMBER 

NOG Displays the word "NO" on the screen. It never returns. 

REPLACE Displays the word "REPLACE" on the screen and waits for an R. If an R 
is typed, it returns. Replace does a PUSH on entry and a POP on exits. 

READ (or WRITE) 
UNIT # 

Core Loc. (starting loc of transfer) 
Number of blocks to transfer 
First block of transfer 

These are the calls to the Mass Storage I/O Handler. UNIT # is the 
device number (0-7 = tapes 0 -7; 10-17 are disk units; 20-77 are 
unassigned yet; 100-7777 an error condition occurs). If you overflow 
from location 7777^ the routines will automatically read into location 0 
of field 1, and so on. PIP uses essentially the same RF0 8 and RK0 8 
routines as BUILD. For a detailed description see DEC -12-ZR5A-D. 

SEARCH 

CHECKLIST 

GOTOLIST 

CHECKLIST, 301 
302 
303 
320 
307 
4215 

bit 0 on = end of list 



GOTOLIST, AFOUND 
BFOUND 
CFOUND 
PFOUND 
GFOUND 
CARRET 

This routine checks the contents of FTYPE with the list pointed to by 
the first argument and, if found, goes indirectly to the corresponding 
position on the second list. If not found, it returns. Note that bit 
0 is the end of list indicator. Therefore, only values between 0 and 
3777 may be checked using this routine. 
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AUXIN 



Gets a character from the device specified by BFLAGl. 



AUXOUT 



BFLAGl = 1 
= 2 
= 3 



Teletype 

High speed reader 
Card reader 



Any other values should not be used. 

This puts a character on the specified device. 



BFLAG = 1 
= 2 
= 3 



Teletype 

High speed punch 
Line printer 



Important lower core locations : 

0000 is used by JMP * s in LMODE 

0001 is used for displaying characters 



AUTO 1-AUTO 8 (10-17) 

Used for auto registers. 

TEMP 

TEMPI thru TEMP 4 

These may be used as temporary locations at any time. Remember that 
as a routine is called, that routine is also free to use them. 

Last character typed on the TTY. 

Nximber of 400 g word blocks that can be used for buffers. 
See COPY. 



KEYCHAR 

BNUM 

INBLOCK 
through 
OUTNUM 

INDEX 

ILEN 

ELOWER 

EUPPER 

CLOWER 

CUPPER 



Contains starting block number of the DIAL index (normally 346) . 

Contains the blocks length of the index (normally 2) . 

Lowest block on the device. 

Highest block on the device. 

Lowest block the system uses on the device. 

Last block the system uses on the device. 



FBLOCK AREA 

FSIZE thru FNAME 3 

FSIZE 

FUNIT 

FTYPE 



FWHAT 

FBNUM 
FNAME 



generally the length of the file (in blocks) . 
unit on which the file sits. 

1 = source 

2 = binary 

anything else = wrong 

1 = input 

2 = output 

anything else = wrong 

starting block of the file. 

name of the file (8 characters = 4 words). 
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3.0 ADDING OR DELETING DEVICES TO PIP 



3.1 MASS STORAGE 

Mass storage I/O is all done by calling the system read and write routines. 
By looking at the mass storage routine (approximate location 1400) the reader can 
see the general call is: 



READ (or WRITE) 
unit number 

first core location of transfer 
number of blocks to transfer 
first block number of transfer 



The key to selecting the type of device lies in bits 6-8 of the unit number word. 
There are, therefore, a maximum of 8 possible types of mass storage devices which 
PIP may use. At present, only device type 0 (units 0-7) is implemented as LINC 
tape. Type 1 (units 10-17) is now the RF08 or the RK08. Type 2, 3, and 4 (de- 
vices 20-47) are used for additional RK08 drives. Slots 5-7 (units 40-77) are 
free and there are no plans to use any of these in the immediate future. These 
slots have a "NOSUCH" in them so that if they are referenced, they will merely 
JMS to NOSUCH. NOSUCH will display an error message. Note that this should not 
happen in practice, because PIP should not try to address imaginary units. 

Assume the reader wants to add a new mass storage device (for example, a 
drum) to be called device "7". At location 1411 (the last word of the input 

slots) put the address of your read routine. Then, whenever PIP attempts to 
read from a unit on device 7 (units 70-77) , it will call this read routine in 
the manner just discussed. The write routine uses the same principle, with 
the exception that the address routine goes at location 142 3 (the last write 
slot} . 



All that now remains is to tell the particular handler about the new device 
now made available for it to use. You would probably want to add it to the 
scope message; because that is merely adding one line in the middle of the 
desired text statement, it will not be discussed further. Assuming that you 
wish to tell the COPY handler about the new device, consider the following se- 
quence. At location ACOPY (approximately 5626) the COPY routine calls DECODE to 
get the unit. It then checks for an "L" for LINC tape (314) and for a "D" for 
drum. Notice that the LINC tape unit number is ANDed with 0007. This ensures 
a unit between 0 and 7, which is device 0, which is the LINC tape routines. 
For this device 7, AND the unit with 0007 and then add 0070. This ensures the 
unit as being between 70 and 77. COPY logic will do the rest, including calling 
the mass storage routines with the unit selected, which in turn will call the 
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particular handler. That is basically all there is to adding another device. 

3,2 SEQUENTIAL DEVICES 

Sequential devices are selected by program switches (BFLAGl and BFLAG2) . To 

insert or remove a sequential device, add a BFLAG test in SEQIN or SEQOUT, the in- 
put and output routines. The exact nature of the device is then unimportant, as 
is the actual testing of the BFLAG switch. As an example of this, a brief 
description of the card read routine is in order. 

The card reader is at present the most complicated sequential device on PIP, 
It differs from most other devices in that it has a limited amount of time to read 
in a mass of data. For this reason, it has its own buffer. The card routine is 
initialized by call CDINIT, This sets certain flags and stores the limits on the 
card columns to be read in. The main entry point is CDREAD. This routine 
actually checks BFLAGl and then returns to the third address after the call if 
BFLAGl^^a. It returns to the first location if the data is not yet ready. It re- 
turns to the second location if the data is ready with a character in the AC, The 
routine reads in an entire 80 column card into CDBUF. The buffer is 40 words 
long because BCD is only 6 bit. After an entire card is read in, it then trans- 
lates it to 6 bit ASCII, This is done by using the CDTAB which is a table of the 
6 bit ASCII characters. The characters are arranged positionally to correspond 
to the values of the BCD, As an example, the translation of the character "A" 
follows . 

A has the niomerical value 61 in BCD from the card reader. The table CDTAB is 
packed two characters to a word. Therefore 61/2 = 30+ Remainder. This may be 
taken as meaning the 30th character from the table CDTAB, right, as opposed to 
left if the remainder was 0. The contents of CDTAB+30 is 01, which is indeed the 

ASCII value of "A". It then stores this correct value back in the card buffer 
CDBUF until it translates the entire card. Then it will give the characters back 
to the user on an individual basis. When it has exhausted CDBUF, it reads in 
another card and translates it. The translation table CDTAB is set up for the 
IBM-029 Keypunch code. This table may be reshuffled or changed in any way, as 
long as blank is always the only character to have the 00 value, 

4.0 FLOWCHARTS (Attached) 

PIP FLOWCHART CONVENTIONS 

An underlined name means that routine has been called. A name in quotes ("F") 
means that is the message now being displayed, A subdivided box means that the 
rest of the box is the argument to the subroutine which is being called. RETURN 
at the end of a subroutine means return to the calling program. 

5,0 LISTINGS (Attached) 

The Disk I/O routines are functionally the same as the DIAL-MS routines. For 
a more detailed description and flowchart, refer to DEC-12-ZR5B-D. 
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REPLY NOT 
ON LIST 
ASK AGAIN 



f GO INTO 


POP MODE 






CALL "RESTART" 
ROUTINE 








DECODE 


PIP 0 
a-AUXiLL/ 
b-BINARY 
s-SOURCE 


PTIONS 
RY MODE 
MODE 
MODE 



CALL " 
R0U1 


SEARCH" 

riNE 


AR61 POINTS TO 


ARG 2 PO 


NTS TO 



"S" 



BINARY 
ASCI) 



c 



EXIT 



CALL "RESTART" 



MOVE THE FOLLOWING 
INSTRUCTIONS TO 4013 

LINC 

LDF 3 

JMP .+1 

RDG 

7m 



JUMP TO 4013 
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GET FIRST POINTER 
AFTER CALL AND 
PLACE IN TEMP I 



GET SECOND 
POINTER AFTER 
CALL AND PLACE 
IN TEMPI 



GET CHAR POINTED 
TO BY TEMP 



NO 



IS IT 
NEGATIVE 
? 



YES 



ADD 4000 TO GET 
RID OF SIGN BIT 




8 



c 



COREF 



© 





ZERO TEMPORARY 
LOCATION 


) — 












ADD 1 TO TEMP | 








PLACE TEMP IN 
COUNTER 



ZERO TEMP 2 



ADD 1 TO TEMP 2 
^ 



CALL "CSET" 



PLACE TEMP 
INDIRECTLY IN 
"CPOINT" 



NO 




ZERO TEMP 2 AGAIN 
AND RESET COUNTER 
TO TEMP 



CPOlNT=TEMP2 



NO 








OVERLAY RF08 
ROUTINES WITH 
RK08 ROUTINES 








YES ^ 




SET UP SOURCE AND 
BINARY HANDLERS 
TO USE DISK 1 AS 
SCRATCH 





RETURN 



SUBTRAC 
TEMP 


T 2 FROM 







'8 



MULTIPLY BY 20, 

AND ADD IN 

-[BUFFER/400q] 
TO GET ^ 
BUFFER SIZE PLACE 
IN "BNUM" 




CSET 



SET DAT/ 
VALUE ( 


^ FIELD TO 
3F TEMP-1 






RETURN 1 



[ RESTART ) 






TURN OFF 
INTERRUPTS 







SET "OUTNUM"TO 
- 1 SO COPY 
ROUTINE WILL 
ONLY MAKE I COPY 
UNLESS RESET 







CALL"COREF" TO 
FIND OUT HOW 
MANY K OF CORE 
THIS MACHINE HAS 







DESTROY PREVIOUS 
CALL INSTRUCTIONS 
SO"COREF" CAN 
ONLY BE CALLED 
ONCE 



DISPLAY 
10 TIMES 

A POSSH 
OPERATt 
FINISH 


MAINOiS 
TO ALLOW 
3LE TAPE 
ON TO 






CLEAR TTY 
CHAR (KEY CHAR) 






DO AN I/O PRESET 






CLEAR AND SET 
INPUT AND 
OUTPUT DEVICE 
FLAGS 







ZERO OUT "BUFFER^ 
MOVING ZERO IN 
" BUFFER -1" TO 
BUFFER FOR 
•-BUFFER LOCATIONS" 







1 RETURN 1 
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ILLEGAL REPLY 



DECODE 

INPUT DEVICE 
MESSAGE 



CLEAR DEVICE SELECTOR 
FLAGS 



SEARCH 



ASCLST 



ASCGO 



"G" 
"H" 
"L" 
"R" 
"T" 



CRDLTT 
ASCH 1 
ASRF8 
ASCT 1 



C 



c 



ASCHl 



C 











BFLAGl =BFLAG1 +1 | 








) 






BFLAGl « BFLAGl +1 | 








) 




BFLAGl = BFLAGl + 1 | 


t 





c 



APART2 
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c 



ASRF8 



3 



C 



Ascr 



3 



FWHAT = 1 
FTYPE =1 



TAPE 



C 



APART 2 



> 



DECODE OUTPUT 
DEVICE MESSAGE 



SEARCH 



ASCGO 



"H" 
"L" 
„p.. 

"R" 
"T" 



c 



BFLAG2 =2 
BFLAG2 = 0 
8FLAG2 =3 
8FLAG2 = 0 
BFLAG2 = 1 



ASCTT 



ASCTT 



BRAG 1 

AND SaAG 2 

= 0 



NO 





7 £ - U 

NO 


j GENERATE LEADER j 


1 » 







c 



J 
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ALOOP 







CALL MORE 


MORE TAPES 






OUTPUT A CTRL/2 
AND CR/LF 






TRAILER 1 







PIP 



YES 







CALL AAA6ET 
TO GET A CHAR 





YES 




SEARCH 



SPECIAL CHARS 
TO BE IGNORED 
#, ETC. 







BUFFER USING 
AAPUT 


1 




< 



ALOOP ^ 
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NOT A LEGAL REPLY 



c 



DECODE INPUT 
DEVICE MESSAGE 



CLEAR DEVICE 
SELECTOR FLAGS 



r" 



SEA 


RCH 


8INLST 


BIN 


GO 



-J 



c 



BHIGH2 



) — " 


BFLAG2 « BFLAG2 + 1 




BFLAG2 « BFLAG2 + 1 



6 



"T" 



BHIGH 



BLT 
BLRF8 



BTTY 
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c 



c 



BTTY 



BPART2 



> 



ILLEGAL REPLY 



1 BFLAGS = 


BFLAG ' + J 1 








1 BFLAG 1 = BFLAG 1+1 | 




CREATE HEADER 
BLOCK BOOTSTRAP 
(SEE DEC>12-ZW5A) 



DECODE 
bOtPUT 


DISPLAY 
3EVICES 






SEARCH 


BiNLST 


BIN 


GO 2 



c 



BPART2 



BHIGH2 
BLT2 



D C 



1 1 








FWHAT = 1 
FTYPE = 2 






1 m 





DISK 



BTTY2 
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IBLOOP 



MOREBLOOP 



PUTWORD 




V NO 



C 



GET ASSEMBLED 
WORD 




YES 


USE STANDARD DEC 




BINARY LOADER 






1 ASSEMBLE WORD | 



DECODE 



SET FUNIT BETWEEN 
0 AND 1 



NO 




FUNIT = 1 1 






1 OLTNUM 


= FUNIT 1 






SEARCH 


ABG1 


AB( 


32 



NOT A LEGAL OPTION 





"C" 




"D" 




"S" 




"U" 





. I 



ACOPY 



AASVSC 



AAUNTC 
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c 



DECODE "CINPUT" 



C 



c 




NOT A NUMBER 



ACOPY2 



ACOPY2 



JMP ACOPY 



INBLOCK =AGNUM 



DECODE "COUTPUT" 



NO 




AGETN 




JMP ACOPY2 


< 






r OUTBLOCK 


. = AGNUM 



I COPY 1 


. ] 





PIP 
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PUP ^ 



1 iNUNIT=0 1 






1 IN8L0CK*0 1 






1 OUTBLOCK = 0 1 






1 OUTUNIT = t 1 






1 FSIZE 


= IOOOg 1 






1 COPY 1 






1 ^ 1 



IB 



■^■^It / ::i:^L ^hEHIHL^Al IML^?ChANoL r=?OG-<Ay FC^ THE PDP-12 COMPUTER. 

2^1/ / CL=PYnIG-tT 19o9; DIGITAL EuUIPyE^T CC^PO^aTIU^, maYnahO MASS.,017d4 

^^^^ / aKITTlV by jack dUn\LSb 

iJ02l / hELLAbtJ NOVt'-'irt ;^ . Iv6^. 

Ziik;^ / UPjaTEU to DIAL-?^S ^AKCH, 19?^. 

i;02j / tf^DATEj FOR CHAINING ^aY 14,197/ 

^0iJ4 / UFUATED fO'n MULTIPLE HK2BS 

i;025 / 

^22b / 

0452^ / f^IP <^IIL RU\ OM A PDP-12 B OR HIGHER. 

i3li}3i5 / 

20^2 / 

k;033 / 

02 34 / 

0kJi6 / 

00 37 / 

0040 / 

0041 / 
004^ / 

0043 / 

0044 / 
0t545 / 

0046 / 

0047 / 
00b0 / 
00!3l / 
00t>2 / 

00i?3 / ppppppppp IlIIIIIMIII PPPPPPPPP 

0054 / P PP 11 P PP 

005b / P PPP II P PPP 

0056 / P PP II P PP 

00b7 / PPPPPPPPP II PPPPPPPPP 

0060 / P 11 P 

0061 / P II P 

0062 / P II P 

0063 / P UP 

0064 / P iiuiimiii P 

00 65 / 

0066 / 

0067 / 

0070 / 

0071 / 
00 72 / 

0073 / 

0074 / 
S5075 / 

0076 / 

0077 / 

0100 / 

0101 / 

0102 EJECT 



0103 








«0 


0104 






/ 




010b 






/ 




0106 






/ 




0107 






/ 




0110 


0000 


0000 




0 


0111 


0001 


0000 


LOCI » 


0 


0112 








TAPE=JMS I . 


0113 


0002 


3340 




TTAPE 


0114 








HPOP=JMS I . 


011b 


00 03 


3321 




HHPOP 


0116 








HPUSH=JMS I 


0117 


0004 


3313 




HHPUSH 


0120 








LEADER=JMS I 


0121 


0005 


3303 




lleoeh 


0122 








FILEC=JMP I 


0123 


0006 


1515 




FF ILEC 


0124 








PUTL=JMS I I 


0125 


0007 


3361 




TTYPU T 


0126 






/ 




0127 






/ 




0130 








*10 


0131 


0010 


00 00 


AU TO 1 » 


0 


0132 


0011 


00 00 


AU TU 2 » 


0 


0133 


00 1 2 




AU TO 3 t 


0 


0134 


0013 


0000 


AU T 0 4 , 


Id 


013t> 


0014 


0000 


AUT05 # 


0 


0136 


0015 


0000 


AUT06 , 


0 


013 / 


0016 


00069 


AUT07 # 


0 


0140 


0017 


0000 


AUTOb ( 


0 


0141 






/ 




0142 






/ 




0143 






/ 




0144 






/ 




0145 






/ 




0146 






/ 




0147 






/ 




01t70 








Rr08=l 


0151 










0152 










0153 






/ 




0154 






/ 




0155 








DlSKWORK=00fc 


0156 










015/ 










0160 






/ 




0161 






/ 




0162 






/ 




0163 






/ 




0164 






/ 




0165 






/ 




0166 






/ 




0167 






CAR0=1 




0170 






/ 




0171 






/ 




0172 






/ 




0173 






TEHMC= 


00 


0174 






/ 




0175 






REMAKE 


= 0 


0176 






/ 




0177 
0200 






/ 

ECH0=1 




0201 






/ 





/MAJOH PAGE 0 LUCATIONS. 



/RESEKVEO FOR JMP S IN L MODE. 
/USED BY DISPLAY ROUTINE. 



/AUTO REGISTER 1 



/SET THIS SWITCH TO 1 IF YOU WANT 

/THE HFt58 DISK HANDLE^ ASSEMBLED INTO PIP. 

/ELSE SET The SWITCH "RFI^8" TO 0. 



/SET THIS SWITCH TO 2 IF YOU 00 NOT WANT PIP TO 
/AUTOMATICALLY USE THE RFi^a DISK FOR 

/THE BINARY AND SOURCE SCRATCH AREAS; IF AN RF0b DISK IS PRESE^mT. 



/SET THE CARU=1 TO CARD READER AND LINE PRINTER. 
ELSE SET CARD TO 0. 

/SET TO LOOK OR A m AS THE EOF CHAR. 

/DO NOT LOAD THE SOURCE FILE COMVERTER. 

REMAKE /^AS ORIGINALLY 1 BUT THE COKVERT ROUTINES :>lCJ LONGER ARE :'*tEi::E;]. 
/SET THIS S^vITCH TO i5 TUPPRESS ECHOING. 



0232 / 

^-im PFLiCK=i /SET This Switch to one to cause oisplay 

0203 /CHARACTtkS TO ALTERNATE RANQOhLY BETWLi:;\ 

0206 /CHANNELS 1& 2 . KAY BE SET TQ ZEKO 

0207 /TO PIC^ UP SPACE ON PAGES IF NiEtUEO. :-dTH 

0210 /NO ILL EFFECTS NOTED. A FRILL ONLY. 

0211 / 

0212 / 

0213 / 

0214 / 

0215 / 

0216 / 

0217 / 

0220 STAR20 = 1 /SET To 1 IF YOU WANT TO HAVE a "ft20" AT The SEUINJ^IIMG OF EVERY FILE. 

0221 / ELSE SET STAR20 TO ^StUj/ 
02 22 / 

0223 / 

02 24 / 

0225 / 

02 26 / 

0227 / 

0230 / 

0231 D1ALBOOT = 300 /isHERE TO REREAD IN DIAL FROM 

0232 OIALSYS=300 /START OF FIRST BLOCK OF SYSTEM ABOVE FREE BLOCKS. 

0233 SYSWTS467 /LAST BLOCK OF DIAA WORK AREA. 

0234 TINDEX=346 /TAPE I^^DEX BLOCK 

0235 TILEN=2 /NUMBER OF BLOCKS IN INDEX 

0236 TLOWe:H=0 /FIRST BLOCK Tq uSE 

0237 TUPPER=777 /LAST dLOCK TO USE 

0240 TSYSLOWER=270 /START OF SYSTEM 

0241 TSYSUPPER=467 /LAST BLOCK OF SYSTEM. 

0242 SYSBBLOCK=370 /START OF BINARY kORK AREA. 
0244 SYSBIN=0001 /BINARY SCRATCH UNIT. 

0244 ASM1F2 RF08AOISKWORK /WHAT IS SPECIAL DISK UNIT 

0245 SYSBSP=0001 /NO SPECIAL SCRATCH UNITS. 

0246 ASMIFN RF 08 &D I SKWQRK /HOW ABOUT NOW??? 

0247 SYSBSP=k?011 /DEFINE PRIMARY SCRATCH AS DISK (INIT wiLL DECIDE -^EST OF STORY) 
0250 SYSSBLOCK=3/0 /START OF ASCII WORK AREA. 

02i>l SYSHuK=447 /BINARY HEADER 9L0CK FOR "SB"2 COMMAND" 

0252 / 

02 53 / 

0254 / 

02 55 / 

02 56 / 

0257 / 

0260 / SOME BASIC DEFINITIONS 

0261 / 

0262 / 

0263 / 
02 64 / 

0265 2£RQ=CLA 

0266 P0l\iL=2ER0+l /(AWvJWW) 

0267 PTWO = PONE + 4 + 100 /CLA CLL I AC RAL 
0270 PTHKEE=PTWO+20 /CML 

02/1 PF0UR = PTW0+2 /(AWwi^) 

0272 PSIX=PTHREE+2 /RTL 

0273 MONE=CLA CMA 

02 74 MTW0=CLA CLL CMA RAL 

0275 MTHHEE=CLA ClL CMA RTL 

0276 LEFT=000 /POINTER TO STARTING LEFT OF SCREEN 

0277 TOP=340 /POINTER TO TOP OF SCREEN 
0300 BOTTOMs-400 /SCREEN BOTTOH 



0301 






/ 










/ 












Ab 








rf = 


6'+»; 0 


















3 U F " t = 


6 1 0 








/ 










/ 




i3311 






/ 




Z61d 




00 2 


l2 c » 


2 


fc!31i 




7 7 70 


Ml . 




0314 






L777e=M 


1 «. 


0315 




7 7 74 


M4 , 




t;316 


iU2 3 


77to0 


.M 2 / , 


"20 


0317 




0^: /7 


L/7. 


11 


23320 


J025 


i5 1 0 il- 


i_l/^ , 


100 


0321 


i^-^26 


02 0w) 


L20^, 


200 


0322 


ri21 


/4'36 


N322 . 


-.>22 


0323 


i£5 0 3i£,' 


400^ 


L40^0, 


4t-00 


0324 


^^^vSl 


5000 


l5000. 


b^00 


032^> 


0^32 


6000 


l6:'^0. 


6W00 


0326 


0iJ33 


7000 


L7000 , 




03 2 7 


Ki034 


7757 


L7757i 




0330 


0035 


0060 


L60, 


60 


0331 


0036 


070k5 


L700 , 


72 0 


0332 


0037 


7766 


M12. 


= 12 


0333 


0040 


04^0 


L 4 0 0 , 


400 


0334 


0041 


0054 


L54, 


54 


033t5 


0i^342 


7724 


m:?4 , 


-54 


0336 


lt'0 4 3 


7 7 20 


M60 , 


= 60 


0437 


iJfe}44 


7 710 


m70. 


-70 


0340 


0045 


7 7 05 


M73, 


-73 


0341 


0046 


77 01 


m7 7. 


-77 


0342 


01^47 


7 7 77 


L7 77 7, 


7 7 77 


0343 


0050 


7746 


m32. 


-32 


0344 


0051 


0333 


L333, 


333 


034b 


0052 


7744 


h3 4. 


= 34 


0346 


00 53 


7700 


L7 70 0, 


77 00 


0347 


0054 


0010 


L10. 


10 


03^0 


0055 


0004 


L4, 


4 


03 51 


0056 


7740 


L7740, 


77 40 


03!?2 






M40=L7740 


0353 


0057 


2021 


M57b7, 


= 5757 


0354 


00 60 


0007 


L7. 


7 


03t>b 


0061 


0030 


l30, 


30 


03b6 


0062 


7735 


M43, 


-43 


0357 


0063 


7772 


M6 » 


-6 


0360 


0064 


7400 


L7400, 


7400 


0361 






m40i5=L 7400 


0362 






/ 




0363 






/ 




0364 


k;065 


00 00 


TEMP , 




0365 


1^)0 66 


00^10 


TEMPI , 


0 


0366 


0067 


0000 


Tb.MP-2. 


0 


0367 


0070 


0000 


te:mp3, 


0 


0370 


0071 


0000 


TLMP4, 


0 


0371 






/ 




0372 


0072 


0000 


KEYCHAH, 0 


0373 


00 73 


0000 


CNTRL^ 


* 0 


0374 


00 74 


00 00 


BNUM . 


0 


0375 


0075 


0000 


DFIKST 


. 0 


0376 


00 76 


4413 


PMUHE. 


MOHE 


0377 


0077 


0000 


BWOHDI 


# 0 



CA-EQ-1 



CA"!';-1 



/IF cakd ;^Eadl^ is i.v 

/StT THE cjUFTtH TO 64,:0 
/IF -JO CAkj NlAUER 
/The;^; SET T^ TO e/^'^ 
IN A^Y LVt\T BUFFER ^UST 



A MULTIPLE CF 40i^ OCTAL WQNQS 



/CONTAINS THE CONTROL 2 SV^ITCH. 



0400 










0401 






dULL 2^ » 




0402 






/ 




040^ 


0m2 




iNeLOCK 


* \L 


0404 




0t30i3 


INU!^ IT » 




040b 






OUTbLOLK , ^' 


0406 




i^it20d 


OUTUNl T 




04 07 


0106 


00 00 


OU T UM » 


I 


0410 






/ 




0411 






BF LAGl = 


I NBLOCK 


0412 






dF LAG2 = 


UUT BLOCK 


0413 






80LDP= INU\ IT 


0414 






BCHAK=OUTuM T 


0415 






/ 




0416 






/ 




0417 






/ 




04 20 






/ 




0421 








ASMIFii R 


0422 


010/ 


0000 


Rl^DH IV , 




04 23 






/ 




0424 






/ 




0425 






/ 




0426 


0110 


0346 


IMDtX, 


TINDEX 


0427 


0111 


0002 




TILEN 


0430 


^lU 


0000 




TLQWEH 


0431 


^113 


^7 77 


EUPPER 1 


tupplR 


0^32 


0114 


027U 


CLO^EH, 


tsyslcwer 


0433 


0115 


0467 


CUPPER* 


TSYSUPPER 


04 34 






/ 




0435 


0116 


^3757 


L5/57, 


5757 


0436 


0117 


0000 


rs UE. 


0 


04 37 


0120 


00 00 


ruNi T. 


0 


0440 


0121 


0000 


FTYPE. 


0 


0441 


0122 


0000 




0 


0442 


0123 


0000 


FWHAT, 


0 


0443 


01ii4 


7/77 


FNAME, 


77 77 


0444 


0125 


7/77 




7777 


0445 


0126 


7777 




7777 


0446 


0127 


7777 




7777 


0447 






/ 




04 50 






/ 




0451 


0130 


0000 


ORIGIN, 


0 


0452 


0131 


00 00 


OATA# 


0 


0453 


0132 


0000 


BTEMPl, 


0 


04 54 


0133 


0000 


BTEMP2 , 


0 


0455 


0134 


0000 


BTEHP3 , 


^ 


0456 


0135 


0000 


BF lELO. 


0 


0457 


0136 


0000 


BOLUO, 


0 


0460 


0137 


00 00 


BOFIELD 


, 0 


0461 


0140 


0000 


BCDUNT, 


0 


04 62 






/ 




0463 






/ 




0464 


0141 


0000 


COUNT, 


0 


0465 


0142 


0177 


L177, 


177 


0466 


014 3 


7563 


M2i;>, 


-^^153 


0467 


0144 


7566 


M212 , 


-212 


0470 


0145 


7401 


M37/, 


=.3 7 7 


0471 


0146 


7540 


M240 , 


-240 


04 72 


0147 


7440 


M340. 


-340 


04 73 






/ 




0474 






/ 




0475 






/ 




0476 








R0R6SJMS 



/iJ^DONT Ot^LETE iiLROSj NOT ?£RO=DELETE 2ER0S FROM BI'vlARY OUTPUT 



RF08-1 



/IF RF08 CRK083 DESIRED 

/INSERT WORD FOR UNIT NUMBER IN PAGE 0 



/SUBROUTINE ROTATES AC RIGHT 6 PLACES 



]0H f ( 


Bl SKI 


0/ 7ti$ 


RS I X 


05 00 






n T 1 A V= IM T 


0& 01 


101 3X 


100 1010 


PP D I S 


0502 






p J p- p 1 ^ 


0b0«5 


01 Oc 


(A'J (31 01 
i0c 10 KP 


p I PP 1 p 

r 1 rr i r 


0504 






n ! A 1 = t MP T 


050!? 


0 1 53 


0iC 46 


r V I T 

L A 1 1 


0506 






/"■AOVo imC t 


0507 


0154 


3214 


CC OP Y 


0510 






CL"TA - tMG T 


05 11 


0155 


15 02 


A«. TT 
AO L < 


0512 






rCTA-TAn I AltTHH 
bL'A-lAU 1 AUlUO 


05 1>J 








0514 


0156 


07 43 


T nrwrrK 


0515 








0516 








05 17 








0520 


0157 


t0O 01 


TT YCR 


0521 






re Tt sJMS I 


0522 


101 OKI 


11 107 


TT VK FT 


05 23 






t T Mr sJMS I . 


05 24 


0161 


1000 


GL \Ht 


05 25 






nf rn nr r i m'? I 

ui_ uu Uu. ~ w nw 1 f 




0162 


22 22 


uu V w w c. 








SYSERRsHLT 








ni RE:rTQHY= JMS I 


05 >5 1 


016 3 


2400 


dyre ct 


05 >52 






MOVE=JMS I « 


<7I S '< < 


01 64 


13 27 


MM OV E 


05 ^4 






POPsJMS I . 


0535 


0165 


1360 


PROP 


05 ^ 6 






PUSH^JMS I . 




101 oo 


1352 


p PUSH 










05 4 1 


016/ 


3151 


NODI S 


05 42 






RF PI AP^s IMS I . 


05 43 


0170 


3161 


REPO IS 








RF An = J MS I . 




0171 


1 4 00 


TREAD 


0546 






WRITE=JMS I . 


05 47 


0172 


1412 


TWRI TE 


05 50 






SEARCH=JMS I • 


0551 


0173 


0334 


SSERCH 


0552 






M u A i ill ■* n o 1 « 


0553 


0174 


3/11 


SEQI N 


0554 






AUXOUT=JMS 1 , 


0555 


0175 


3747 


SEQOUT 


0556 






PUTWORO=JMS I . 


0557 


0176 


4273 


BBOUT 


0560 






ASHIF^ RF08 


0561 






ASMSKP 2 


0562 






DISC=JMS I 


0563 


0177 


1540 


RFOISK 


0564 




/ 




0565 




/ 




0566 




/ 




0567 




/ 




0570 




/ 




0571 




/ 




05 72 




/ 




0573 






EJECT 



/ECHOING DESIRED? 

/NOPE. DON T ASSEMBLE CRLF PROCESS IN. 



/DO WE WANT THE RF08 ROUTINES LOADED? 
/NO. SKIP PAST THE DEFINITIONS. 



0574 
0575 
0576 
0577 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0650 
0C>51 
06 52 
0653 
0654 
0655 
0656 
0657 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
16670 
0671 
0672 



0200 4216 



0201 
0202 
0203 
0204 
0205 
0206 
0207 



0210 
0211 
0212 

0213 
0214 
0215 



0216 
0217 
02 20 
0221 
02 22 
02 23 
0224 
0225 
02 26 
0227 
0230 
0231 

0232 
0233 
0234 

0235 
0236 
02 37 



455/ 
4562 
0263 
4573 
0210 
0213 
5202 



0301 
0302 
4.523 

5600 
3400 
5000 



0000 
4660 
72 40 
3106 
46 62 
3000 
4i>51 
0263 
2000 
t?224 
3072 
6141 

2020 
0004 
0002 

6026 
4661 
6046 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 

PIPP IP. 



PIPL, 



/ 

/ 
/ 

PIPLST , 



/ 

PIPGO, 



«200 



JMS RESTART 
ASMIFN ECHO 
CRLF 

OECOOE 
MAINOIS 
SEARCH 
PI PL SI 
PIPGO 

JMP PI PL 



301 
302 
4323 

A8S0L 

BINARY 

ASCII 



/ 
/ 
/ 

/ 
/ 

RESTART. 0 



INITOV , 



JMS I 
MONE 
OCA 
JMS I 
OCA 

UISPLAY 
MAINDIS 

ISZ 

JMP 

DCA 

LINC 

LMOOE 

ADD 

Esr 

POP 
PMODE 
6026 
JMS I 
TLS 



SAVEST 

OUTNUM 

FCOHE 

0 



KEYCHAR 



L20 



RESTST 



/RESTART I-O OEVICES, CLEAN UP SYSTEM, ETC. 

/DO A CRLF ONLY JF ECHOING. 

/GIVE INITIAL CARRIGE RETURN LINE FEED, 

/DISPLAY OPTIONS 

/FROM MY LIST OF GOODIES. 

/LOOK FOR LEAGAL OPTIONS 

/LIST OF P IP OPT lUNS 

/WHERE TO GO IF FOUND 

/NOT A LEGAL REQUEST. 



/A=ABSOLUTE MQUE 
/B=BINARY MODE 

/S=SOURCE MODE» 4000=ENO LIST 

/ABSOLUTE HANDLER. 
/POINTER TO BINARY HANDLER 
/SOURCE HANDLER 



/SAVE RKt58STATUS BEFORE 2APPER. 

/SET UP COPIEH FOR 1 COPY 

/-NUMBER OF OUTPUT TAPES FOR COPY 

/ALLOCATE CORE NOW. THIS IS LATER A "TAD M40". 



/JUST i/<AIT A SECOND. 



/NOT DONE YET 
/NO NEW CHAR. 
/ENTER LINC MODE 

/GET THE I/O PRESET BIT 
/AND DO AA I/O PRESET 



/ 

LP08O1. 



ASMIFH CARO-1 



/FIX UP RK08 NOW, IF NECESSARY. 

/FIX UP ThE TELEPUNCH NOW BY GIVING A PHQONEY CHARACTER. 
/SHOULD WE INITIALI2E PRINTER?/? 



63673 02-^0 b6b^ LCB /YEP. CLEAH THE PRlNTtR BUFFE^'* AND SET THE FLAG SO IT LL BE READY IF aZ NEED 

IT, 

0674 / 

06 75 biJ41 4t)64 MOVE /iE'^O UP^^E^ C^^^E u Y A HiOLOUS MOVE. 
0676 0;^42 6^77 BUFFER-1 

i36 77 0*^4 J 64k}J BUFEt« 

0700 ASMITj? rtF^d /IF zfERQ ALL OF CURF 

0701 -BUFFlH 

07K2 ASMIF\ HF^d /IF A'sl KF^S PHtSENT ^E^O Q^JLY BUFFlR-7.577 

0703 0244 r^2]L -c3UFFEN-4i5i3 

0704 024t> 5616 JMP I RESTAi^T 

0705 / 

0706 / 

0707 / 

0710 0246 4216 EX1T» JHS RESTART /RESTA^^T UlAL 

0711 024/ 4t>64 OVEWEX, HOVE /PLACE DIAL RESTART INSTRUCTIONS 

0712 ^25fe} 02t54 HEAOIN 

0713 02t3l 45314 EX I T LO C , 4^ 20 =R E A DL AD I N /IN PROPER PLACE FOR RtBOOTSTRAP. 

0714 k52;?2 M^A ^JEAQENi-HEADl N /BOOTSTRAP IS 4 wO^DS LONG 

0715 0253 5651 JMP I EXIFLOC /RETURN TO OIAL 

0716 / 

0717 / 

0720 0254 6141 REAOIN, LINC /MAIN BOOTSTRAP. 

0721 LHOOE /GCT INTO LiNC MODE FOR REBOOTSTRAP 
07ii2 0255 0643 LDF 3 /MAKE SURE DATA FIELD IS SET AT 3 

0723 0256 0701 RCG /READ GROUP 

0724 0257 /300 /XDIALBOOT /FROM 300, 

0725 PMODE /RESUME 8 MODE QEFINITIO^iS 

0726 REAOEN=, 

0727 / 

0730 / 

0731 / 

0732 / 

0733 / 

07 34 / 

0735 0260 4600 SAVEST. STATSV /POINTER TO RK08 SAVER 

0736 0261 4562 HESTST. STATRS /POINTER TO THE RK08 FIXER, 

0737 / 
0740 / 
07 41 / 

0742 / 

0743 / 

0744 / 

0745 / 

0746 / 

0747 / 

0750 / 

0751 / 

0752 / 

0753 0262 6400 FCQRE, COREF /POINTER TO CORE INITIALUEH ROUTINE. 

0754 / 

0755 / 

0756 / 

0757 / 

0760 / 

0761 / 

0762 / 

0763 / 

0764 / 

0765 / 

0766 / 

0767 / 
0770 / 



0771 / 

0772 026^ 0^?^0 MA I\OI b, Li{;rT+<J4i5 
07 73 i3264 dlAi, TJP.^^kJ 
0774 026b 0622 

0774 e266 112i3 

0774 0267 4i3l7 

0774 02 7i3 2i324 

0774 2271 1117 

0774 0272 1623 

0774 TtXl "FPIP 3PTI0\S: 



0775 0273 7243 
0775 

0776 0274 4043 
0776 

0777 0275 4043 
0777 0276 1001 
0777 0277 4055 
0777 0320 b55b 
0777 0301 4001 
0777 0302 2530 
0777 0303 1114 
0777 0304 1101 
0777 0305 2231 
0777 0306 4015 
0777 0307 1704 

0777 HA AUXILIARY MODE 

1000 0310 0543 

1000 0311 1002 

1000 0312 4055 

1000 0313 5555 

1000 0314 4002 

1000 0315 1116 

1000 0316 0122 

1000 0317 3140 

1000 0320 1517 



1000 HB BINARY MODl 

1001 0321 0405 
1001 0322 4310 
1001 0323 2340 
1001 0324 5555 
1001 0325 5540 
1001 0326 2317 
1001 0327 2522 
1001 0330 0305 
1001 0331 4015 
1001 0332 1704 
1001 0333 0534 

1001 HS SOURCE M00£\" 

1002 / 

1003 / 

1004 / 

1005 / 

1006 / 

1007 / 

1010 / 

1011 0334 mm SStRCH, 0 

1012 0335 7300 CLA CLL 

1013 0336 1734 TAD I SSE^CH 

1014 0337 3t365 DCA TE-^P 

1015 0340 2334 ISZ SSERCH 

1016 0341 1734 TAD I SSERCH 

1017 0342 3066 DCA TEMPI 
1020 0343 2334 IS2 SSERCH 



/COMpA^tS "FTYPE" AGAINST GIVEN LIST. 

/CLEAR AC Tt) BE SURE 

/GET POIMTER TO USER L 1ST 

/Ai\D STOORE AwAY 

/BOP PAST FIRST ARG. 

/GET JMP LIST 

/STORE POIMTER N TEMPI 

/BOP PAST SECOND ARG FOR RETRUN. 



1021 






/ 








1022 


0344 


1465 


SSLOOP » 


Tad I 


TEMP 


/GET NEXT WORD TO CO AM PARE 


10 23 


0345 


7510 




SP A 






10 24 


0346 


10 30 




TAD 


L4 00 0 


ywFnATlVf" 1 AST rw AW ma kit pn<?i?TT\/r row 


1025 


0347 


7041 




CI A 






10 26 


03 50 


11 21 




Tad 


FT YP E 


^UwCO 11 C-UUnL. uUlMiC-ivlQ U r P iTrfc. 


1027 


0351 


7640 




SHA CLA 




1030 


0352 


5356 




JM P 


SS NO 


/Mfl TfQT mo TNiH 
/iNUt Icot rUn t.l^U 


1031 


0353 


1466 




TAD I 


TEMPI 


/VP'S fiTT rniiMn octiidm Amoccc 


1032 


0354 


3065 




OCA 


TEMP 




1033 


0355 


5465 




JMP I 


TEMP 




1034 






/ 








1035 


0356 


2066 


SSNO , 


IS2 


TEMP 1 


/BOP UP JUMP TABLE POINTER 


10 36 


0357 


1465 




TAD I 


TEMP 


/WAS THIS LAST CHARACTER? 


1037 


0360 


7710 




SPA CLA 






10 40 


0361 


5734 




JMP I 


SSEHCH 

w «j n V n 


/YEP IT S NFfJATUir 


1041 


0362 


2065 




ISH 


TEMP 


/NOP. BDP UP CHAR PDINTFR AMfl TRY ATAIW 


10 42 


03 63 


53 44 




JMP 


SSLOOP 


/BACK UP Tf) TRY wrxr 


1043 






/ 






10 44 






/ 








1045 






/ 








1046 






/ 








1047 






/ 








10 50 






/ 








1051 






/ 








1052 






/ 








1053 






/ 








1054 






/ 








1055 








ASMI FjJ 


ECHO 


/DQ WF wA{\iT rrHnTwn??? 


1056 








ASMSKP 


12 


/NOPE. CR NEVER CaLLEH. SD nn NflT PUT IT 


1057 






/ 






1060 


0364 


0000 


TTYCR» 


0 






1061 


0365 


1143 




TAD 


M215 


/GET A C.R. In the AC, 


1062 


0366 


7041 




C I A 






1063 


0367 


4407 




PUTL 




/AND AWAY IT GOES 


1064 


0370 


1144 




TAD 


M212 


/N THE L.F. 


1065 


0371 


7041 




CIA 






1066 


0372 


4407 




PUTL 




/AND AWAY IT GOES 


1067 


03/3 


5764 




JMP I 


TTYCR 


/AND RETURN TO CALLER. 


i070 






/ 








1071 






/ 








1072 






/ 








1073 






/ 








1074 






/ 








1075 






/ 








1076 






/ 








1077 






/ 








1100 






/ 








1101 






/ 








1102 






/ 








1103 








EJECT 







1104 «400 

1125 / DISPLAY 

1106 / 

1107 TABLtD=. 
1110 / 



1111 


0400 


7777 


77 77 


1112 


0401 


7777 


77 77 


1113 


04 02 


44 77 


44 77 


11 14 


04 03 


77 44 


17 AA 

f f *t*t 


1115 


0404 


5177 




1116 


04 05 


2651 


£ 0 3 J. 


1117 


04 06 


41 36 


4136 


1120 


04 07 


22 41 


22 41 


1121 


0410 


4177 


4 1 7 7 


1122 


04 11 


3641 




11 23 


04 12 


45 77 


45 77 


11 24 


04 13 


4145 


41 45 


1125 


0414 


4 4 7 7 




11 26 


0415 


40 44 


4044 


1127 


014 1 ^ 
X o 


'*xoo 


4136 


11 30 


04 17 


26 45 


26 45 


1131 


04 20 


1077 


1 !? 7 7 


1132 


04 21 




7 710 


1133 


0422 


7 7 4 i 


7 741 


11 34 


04 23 




0041 


1135 


0424 


414 2 


414 2 


1136 


04 25 


40 76 


40 76 


11 3 7 


04 26 


10 7 7 


10 7 7 


11 40 


04 27 


43 24 


*♦ 0 c •» 


1141 


0430 


0177 


ni 7 7 


1142 


0431 


0301 


0301 


11 43 


04 32 


3077 


30 77 


1144 


04 33 


7 7 30 


77 30 


1145 


0434 


3077 


^377 
0 Itf / / 


1146 


0435 


7706 


7 7 0( A 
/ / WO 


1147 


0436 


4177 


4177 


11 50 


0437 


77 41 


77 41 


1151 


0440 


4 4 7 7 


4 4 7 7 


11 52 


04 41 


3044 


30 4 4 


1153 


04 42 




42 76 


11 54 


04 43 


03 76 


03 76 


1155 


0444 


4477 


44 77 


1156 


04 45 


3146 


3146 


1157 


0446 


5121 


5121 


1160 


04 47 


46 51 


4651 


1161 


0450 


4040 


4040 


1162 


0451 


4077 


4077 


1163 


0452 


0177 


0177 


1164 


0453 


7701 


7701 


1165 


0454 


0176 


0176 


1166 


0455 


7402 


7402 


1167 


04t>6 


0677 


0677 


1170 


0457 


7 7 01 


7701 


1171 


0460 


1463 


1463 


1172 


04 61 


6314 


6314 


1173 


0462 


0770 


0770 


1174 


04 63 


7007 


7007 


1175 


0464 


4543 


4543 


1176 


0465 


6151 


6151 


1177 


0466 


4177 


4177 


1200 


0467 


0000 


0000 


1201 


0470 


7777 


7777 


1202 


0471 


7777 


7 7 77 



CHARACTER TABLE. 

/00= ILLEGAL 

/01 = A 

/02 = B 

/03=C 

/04 = D 

/05=E 

/06 = F 

/07sG 
/10SH 
/11=I 
/12 = J 
/13 = K 
/14sL 
/15rM 
/16 = N 
/17 = 0 
/20SP 
/21sQ 
/22 = R 
/23 = S 
/24=T 
/25sU 
/26rV 
/27 = W 
/30 = X 
/3ls Y 
/32 = £ 
/33=C 

/34SILLEGAL 



Vi 03 






tj<,i at) 


/ o J 


12 134 




7/41 


7 7 41 




12 05 




20 00 


20 00 


/3 6- ' 


1206 


24 75 


20 76 


7 A 




1207 


17 ^ 7 A 


7 7 77 
1 1 1 f 


1111 


/<7=T! i rf'At 


1210 


k54 77 


77 77 
fill 


11 n 




1211 


ffl K f7 tf, 




t' It/ 1C> 


/*tif-o»- HOC. 


12 12 


(S5 0 1 


00 00 


l6' 0 0 




12 13 


05 02 


75 00 


75 00 


/ *« i - . 


1214 


05 03 


00 00 


M M u w 




12 15 


05 04 


70 00 


7 0 00 


/AO - »♦ 


1216 


25 05 


0 0 7 0 






12 17 


05 06 


77 7 7 


1111 


'^J- ILLfc-uAL 


1220 


050 7 


7 7 7 7 


1111 




1221 


0510 


5721 


7 7 1 
7 / c J. 




12 22 


05 1 1 


d A 71 


46 71 




12 23 


0512 


6 6 61 


66 61 


/ ^ J — ~ t. " OL^' 0»\J'» 


12 24 


0513 


4^33 


4 3 33 




12 25 


05 14 


m AA 

7X00 


51 66 


/4 6= & 


1 O 0 A 


107 17 


cm 7 A 


0526 






05 16 


00 00 


00 00 


/4 7= TA B 


12 30 


0517 


00 00 


0000 




12 31 


05 20 


36 00 


3600 


/5 0s ( 


12 32 


05 21 


00 41 


00 41 




12 33 




41 00 


4100 


/51= ) 


12 34 


0523 


0036 


0036 




12 35 


0524 


2050 


2050 


/52= » 


1236 


0525 


0050 


0050 




12 37 


05 26 


04 04 


((34 04 


/53s + 


1240 


0527 


0437 


0437 




12 41 


05 30 


0500 


0500 


/54= , 


12 42 


0531 


0006 


0006 




12 43 


05 32 


0^04 


(j4 04 


/55=«. 


12 44 


0533 


04 04 


0404 




1 y 

i c 


05 34 


00 01 


0001 


/56= . 


12 46 


05 35 


00 00 


0000 




12 47 


05 36 


06 01 


0601 


/57= / 




05 37 


40 30 


40 30 




12 51 


05 40 


45 36 


45 36 


/60= 0 


12 52 


0541 


3651 


3651 




1253 


0542 


2101 


2101 


/6 1 = 1 


1 7<?4 


0543 


0177 


0177 




1 7<t>^ 


0544 


4523 


4523 


/62 = 2 


1 ^ A 
70 


05 45 


2151 


2151 




1 1 7 / 


05 46 


4122 


4122 


/63 = 3 


1 7 Ad 


IC7 *♦ / 


26 51 


26 51 




1261 


0550 


2414 


2414 


/64=4 


X262 


0551 


0477 


0477 




1263 


0552 


5172 


5172 


/65s5 


1264 


0553 


0651 


0651 




1265 


0554 


1506 


1506 


/66=6 


1266 


0555 


4225 


4225 




12 67 


05 56 


44 43 


4443 


/6 7=7 


1270 


0557 


6050 


6050 




1271 


0560 


5126 


5126 


/70=e 


1272 


0561 


2651 


2651 




1273 


0562 


5122 


5122 


/71 = 9 


1274 


0563 


3651 


3651 




1275 


0564 


22 00 


2200 


/72= : 


1276 


0565 


0000 


0000 




1277 


0566 


4601 


4601 


/73s ; 


1300 


0567 


0000 


0000 




1301 


0570 


1000 


1000 


/74=< 



U2i2 


iib71 


4224 




4224 




1303 


0572 


1212 




1212 


/75 


1304 


0573 


1212 




1212 




1305 


25 74 


2442 




24 42 


/7 6 


1306 


05 75 


0i5 10 








1307 


05 76 


4025;; 






/II 


1310 


05 77 


2055 




2ic;55 




1311 






/ 






1312 






/ 






1313 






/ 






1314 








EJECT 





1315 
1316 
1317 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1330 
1331 
1332 
1333 
1334 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/PTEXT , 

/ 

/ 

/ 

/ 



«600 



01 SHLAY 
PTEXT 



XCOOR. 

YCOOR 

TEXT 



DISPLAY ROUTINE 
GENERAL CALL: 

WHERE PTEXT POINTS TO THE FOLLOWING! 



"F THIS IS MY MESSAGE\»' 



1335 


0600 


0000 


PPOI S, 


0 




/MAIN ENTRY 


1336 


0601 


7300 


PINSTl . 


CLA CLL 




/CLEAR AC, 


1337 


0602 


4556 




CHECKIO 




/CHECKIO FOR 10 NOW AND AFTER EVERY C,R 


1340 


0603 


16 00 




TAD I 


PPDI S 


/GET MAIN POINTER 


1341 


0604 


3331 




DCA 


PDIS 


/AND PLACE IN TEMP POINTER. 


1342 


0605 


2200 




IS^ 


PPDI S 


/PAST POINTER ON RETURN, 


1343 


b606 


1731 




TAD I 


PDIS 


/GET POINTER 


1344 


0607 


3332 




DCA 


PH OR 


/X POS 


1345 


0610 


2331 




IS2 


PDIS 


/BOP UP 


1346 


0611 


1731 




TAD I 


PDIS 


/GET VERTICAL 


1347 


0612 


3333 


PDCAVR, 


DCA 


PVER 


/AND STASH AWAY, 


1350 


0613 


1331 




TAD 


PDIS 


/START OF TEXT 


1351 


0614 


33 34 




DCA 


PSTART 


/BOP DOWN BY 1 


1352 


0615 


7240 




MONE 




/SET SWITHC TO LEFT OF NEXT WORD. 


1353 


0616 


3335 




OCA 


PSWI TCH 




1354 


0617 


1201 




TAD 


PI NSTl 


/GE' A CLA rOH rlRbi IIML IHHiJLHaH, 


1355 


06 20 


32 51 




DCA 


PNOTl 


/AND STORE SO NO VERTICAL BOP. 


1356 






/ 






/GET NEXT CHAR FROM TEXT, 


1357 


0621 


4302 


PPSTART, 


r JMS 


PGETL 


1360 


0622 


7240 




MONE 




/SET CHAR SIZE TO HALFWORD 


1361 


06 23 


3337 




DCA 


PCSW 


/IN CASE OF NO F OR H. 


1362 


0624 


1336 




TAD 


PCHAR 


/GET IN AC. 


13 63 


0625 


1021 




TAD 


H10 


/IS IT AN "H" 


1364 


0626 


76 50 




SNA 


CLA 


/IF IT 1S»SKIP PAST AND IGNORE. 


1365 


0627 


5235 




JMP 


PPAST 


/ITS AN "H" 


1366 


0630 


1336 




TAD 


PCHAR 




1367 


0631 


1063 




TAD 


M6 


/IS IT AN "F" 


1370 


0632 


7640 




SHA 


CLA 


/NOT AN "F" OR AN "H" . USE IT AS A CHAR 


1371 


0633 


5236 




JMP 


POO 


1372 


0634 


3337 




OCA 


PCSW 


/SET SI^E TO FULL. 


1373 


0635 


4302 


PPAST, 


JMS 


PGETL 


/GET FIRST CHAR TO BE DISPLAYED, 


1374 


0636 


1337 


POO. 


TAD 


PCSW 


/GET SI^E. 


1375 


0637 


7650 




SNA 


CLA 


/IS IT FULL SIzJE. 


1376 


0640 


1022 




TAD 


M4 


/YES. SET BACK LEFT BY a, 


1377 


0641 


1022 




TAD 


M4 


/ IF HALF SET IT BACK BY 4, 


1400 


0642 


1332 




TAO 


PHOR 




1401 


0643 


3001 




DCA 


LOCI 


/THIS IS A REAL LOC1(0001) 


1402 


0644 


1337 




TAD 


PCSW 


/GET SUE 


14Jfi3 


0645 


7650 




SNA 


CLA 


/FULL? 


14 04 


0646 


1023 




TAO 


M2 0 


/YES, BOP DOWN BY 40, NOT 20 


1405 


0647 


1023 




TAO 


M20 


/M20 IF HALF SI2E 


1406 


0650 


1333 




TAD 


PVER 




1407 


0651 


3333 


PNOTl, 


DCA 


PVER 


/MADE A CLA FOR THE FIRST TIME THROUGH 


1410 


0652 


1212 




TAO 


POCAVR 


/GET CORRECT INST, 


1411 


0653 


3251 




OCA 


PNOTl 


/SET UP FOR FUTURE CALLS, 


1412 


0654 


1337 




TAD 


PCSW 


/CHAR SI2E. 


1413 


0655 


7040 




CMA 




/COMPLEMENT BIT. 



1414 


0656 


0026 




AND 


L200 


1415 


06 57 






L I 




1416 








LH OD E 




1417 


0660 


00 04 




ES F 




1420 


0661 


0002 




on D 
rU r 




1421 








PMODE 




1422 


0662 


72 00 




CL A 




14 23 












1424 


0663 


1336 


PL 00 P 1 


TAD 


PC H A R 


142J> 


0664 


7104 




r*! i D A i 
OLu KAL 




14 26 


0665 


1347 




Tar 
i A U 


PT ABLE 


14 27 


06 66 


3016 




DC A 


AU TO 7 


1430 


i36 67 


1333 




TAD 


PVER 


1431 


06 70 


6141 




L I NC 




14 32 








LM OD E 




1433 


0671 


17 76 




DSC I 


AU TO 7 


14 34 


WO / c 


1 7 7 A 




OSC I 


AUT07 


14 35 


06 73 


0002 




PD P 




14 36 








PMODE 




14 37 




7 7 OIK 




PT WO 




1440 


0675 


1001 




TAD 


LOCI 


14 41 


06 76 


0 tJ t£) i 




DC A 


LOCI 


14 4 2 








AS M I FN 


PFLI CK 


14 43 


06 77 


4 7 30 




JM S I 


PALT 


14 44 


M 7 0101 

10/1010 


4302 




JMS 


PGETL 


1 *» 1 3 


or 7 <5t 1 


5263 




JMP 


PLOOP 


14 46 






/ 






14 47 


(71 7 I?l S> 


01 m fl( 

iCi ttl ^ 10 


pgetl » 


0 




14 50 


j7I 7 0! 


2335 




I S i 


PSWI TCH 


14 5l 


07 04 






JMP 


PR IGHT 


1452 


0705 


23 34 




I C 2 

i b c 


PS T A RT 


1453 


0 7 06 


17 3 4 




Tad I 


PSTART 


1454 


0 7 07 


4 550 




RO R 6 






0710 


5314 




JMP 


PCOM 


14 56 


ffl7 1 1 
10 / IX 


75 ^01 


DO 1 r UT 


MONE 




1457 


0712 


3335 




DC A 


Pb w I TCH 


14 60 


0713 


17 34 




Tad I 


PSTART 


14 61 


« 7 1 4 


00 2 4 


PC On , 


AN D 


L77 


14 62 


0715 


3336 




DC a 


PCHA R 


1463 


017 1 A 


1 '^TtA 

1 ooo 




Tad 


P CH AR 




0717 


1052 




tad 


M34 


14 65 


07 20 


76 50 




SNA 


CL A 


14 66 


07 21 


56 00 




JMP I 


PPOI S 


14 67 


07 22 


1336 




TAD 


PCHAR 


14 70 


0723 


1062 




TAD 


M43 


14 71 


0724 


7640 




Srf A 


CLA 


14 72 


07 25 


57 02 




JMP I 


PGET L 


1473 


0726 


4556 




CHECK! 0 




1474 


0727 


5221 




JMP 


PPSTART 


14 75 






/ 






1476 






/ 






1477 








ASMI FN 


PFLICK 


1500 


0730 


3372 


PALT , 


POTHER 




1501 


0731 


0000 


PO IS, 


0 




1502 


0732 


0000 


PHOK. 


0 




15 03 


07 33 


00 00 


PVEH , 


0 




1504 


0734 


0000 


PSTART , 


0 




1505 


0735 


0000 


PSWI TCH, 0 




1506 


0736 


00 00 


PCHAR, 


0 




1507 






/ 






1510 






/ 






1511 






/ 






1512 






/ 







/BIT4 OF ESF 

/GET INTO LINC MODE 

/SET CHARS TO CORRECT SIHE 

/BACK OVER INTO 8 MODE 

/CLEAR THE AC BECAUSE ThE SIHE IS STILL IN THE AC 

/GET THE CHAR IN THE AC, 

/MULTIPLY BY 2. 

/POINTER TO DISPLAY TABLE, 

/AUTO FOR PICKING UP THE DISPLAY CHARS. 

/GET THE VERTICAL IN THE AC. 

/GO OVER TO LMODE AND START TO DISPLAY. 

/FIRST PART OF CHAR 
/SECOND PART QF CHAR, 

/BACK INTO 8 MODE 

/GET A +2 IN THE AC 

/GET NEXT DISPLAY POINT. 

/AND BOP BY 1/2 CHAR. 

/DO WE WANT TO ALTERNATE CHANNELS? 

/YES. ADO IN RANDOM CHANNEL BITS NOW. 

/GET ANOTHER CHARACTER. 

/ AND DISPLAY IT, 

/CHAR GETTER ROUTINE 
/IS IT LEFT HALF? 
/GET CHARACTER 
/GET NEXT WORD 
/IN THE AC 

/ROTATE LEFT HALF TO THE RIGHT HALF. 

/GO 00 THE AND. 

/RESET SWITCH 

/FOR NEW WORD NEXT TIME, 

/WORD IN AC 

/JUST THE LOW ORDER BITS. 
/SAVE FOR LATTER USE. 
/BACK IN AC. 
/IS IT "\" 

/YES J EXIT. 
/GET IT AGAIN 
/IS IT A CR. 

/NO. RETURN. 

/CHECK I/O FLAGS AND SERVICE. 
/RESET TO START NEXT LINE. 



/IF ALTERNATING CHANNELS STICK IN POINTER NOW 
/POINTER TO THE FLICKEHER 

/TEMPORARY POINTER 
/HORIZONTAL COORDINATE 
/VERTICAL COORDINATE 
/POINTS TO NEXT TEXT WORD. 

/0=GET RIGHT HALF.-1=GET LEFT HALF OF NEXT WORD. 
/CONTAINS NEXT TEXT CHARACTER. 



1513 

1514 

1515 

1516 

1517 

1520 

15iil 

1522 

1523 

1524 

1525 

1526 

1527 

1530 

1531 

15 32 

1533 

1534 

1535 

15 36 

1537 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1610 

1611 



0737 
2740 
iJ741 
0742 



0743 
0744 
0745 
0746 
0747 



0000 
4 3i)2 
1336 
5/37 



0000 
73 00 
6031 
5743 
03 77 



07t?0 
0751 
07 52 
0753 
0754 
0755 
0756 
0757 
0760 
0761 
0762 
0763 
0764 
07 65 



0766 
0767 



0770 
0771 
0772 
0773 
0774 



6034 
1366 
74 50 
5553 
1367 
7650 
5552 
1072 
7500 
6036 
7004 
7130 
30 72 
57 43 



7574 
77 64 



0000 

7012 
7012 
7012 
5770 



UUCGM, 



TAD 
JMP I 



lOCHECK. ^ 

CLA 



PTAdLE. 



RKBTST , 



/ 
/ 
/ 

lOCO. 
lOCP, 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

RS IX , 



CLL 
KSF 

JMP 1 lOCHECK 
TABLtlJ-l 



ASMIFN TABL£D-li7i^00 
1,<HUH HAS OCCuRHEO 



lOCU 



KRS 
TAD 
SNA 
DI AL 

TAD lOCP 
SNA CLA 
PIP 

TAO KEYCHAR 
SMA 

KHB 
RAL 

CLL CML RAK 
DCA KEYCHAR 
JMP I lOCHECK 



=204 

-220+204 



0 

RTR 
KTR 
RTR 
JMP I 



RS IX 



/jecOuE CALLS THIS ROUTINE TO GET A CHAR FROM PGETL 
/oET A CHAR. 
/PLACE r-M AC. 
/hV urn. 



/CHECKS 10 DEVICES. 

/IS IT KlYBOARD? 
/I.JPE. RETuR.M. 

/POINTS TO THE DISPLAY TABLE-1 

/ 

/NO^ check TO h>LE IF PREVIOUS INSTRUCTION 

/y,AS AN "AND" SU THAT ITS EhFECTIVELY A NOP, 

/IT IS NECESSARY BECAUSE DOUBLE lOTS 

/CAN SCHErt UP THE DATA BREAK TRANSFER. 

/SINCE THE AC IS £ERO, AN AND CAN BE NO WRONG 

/ 

/CHECK f^OR A:^ AiMO CONDITION, 

/AND IF NOT AN ANDf THEN GIVE AN ASSEMBLY EHROR MESSAGE 

/THE ASSE^eLY ERROR MESSAGE WILL LET THE GUY KNOW SOMETHINGS WRONG 

/ 

/READ IN THE FLAG BUT DON T TURN OFF THE FLAG. 

/IS IT A CONTROL D 

/???? 

/YEP. RESTART DIAL 

/hOw ABOUT A CONTROL P 
/ ? ? V ? 

/YEP. RESTART PIP, 

/DO WE HAVE A CHARACTER IN BUFFER????? 

/REAO IN NEW CHAR IF NONE THERE 

/TURN ON SIGN BIT. 
/STASH AwAY. 

/ALL DONE. RETURN TO CALLER 



/CONTROL D 

/CONTROL P MINUS CONTROL D 



/THIS LITTLE ROUTINE ROTATES THE AC SIX PLACES RIGHT 



/RETURN, 



1612 / 

1613 / 

1614 / 

1615 / 

1616 / 

1617 / 

1620 / 

1621 PUS^=^JC0H 

1622 / 

1623 / 

1624 / 

1625 / 

1626 / 

1627 / 

1630 / 

1631 / 

1632 / 

1633 / 

1634 / 

1635 / 

1636 / 

1637 EJECT 



/A GOOD PLACE rOR THIS LOCATlOrg 



1640 








»1000 






1641 






/ 








1642 






/ 








I64j 






/ 




ROUTINE TO GET 


A LINE FROM TTY . 


1644 






/ 








1645 






/ 




GENERAL CALL: 




1646 






/ 








1647 






/ 


LINE 






16^0 






/ 


PDIS 






1651 






/ 








1652 






/ 




WHERE 


POIS POINTS TO THE STUFF TO tit DISPLAYED WHILE 


1653 






/ 








1654 






/ 








1655 






/ 








1656 






/ 








1657 


1000 


0000 


GLINE, 


0 




/MAIN ENTRY FPR LINE GETTER ROUTINE. 


1660 


1001 


1600 




TAD 1 


GLINE 


/GET POINTER TO DISPLAY 


1661 


1002 


3222 




DC A 


Gl 


/AND SAVE IT . 


16 62 


10 03 


k;2 00 




ISH 


GLINE 


/SET UP RETURN. 


16 63 


10 04 


12 22 




TAD 


Gl 


/GET POINTER 


1664 


1005 


3241 




DCA 


G2 


/AND STASH IT IN THE SECOND LOOP. 


1665 


1006 


3700 


GCLEAR . 


OCA I 


GGNUM 


/CLEAR NUMBER OF CHARS TO iiERO. 


1666 


1007 


7201 


GMAI N> 


PONE 




/GET A +1 IN THE AC. 


1667 


1010 


1700 




TAD I 


GGNUM 


/GNUM*1, NEXT SPOT IN BUFFER. 


1670 


1011 


4252 




JMS 


GIN 


/STICKS NEXT CHARACTER INTO GNUM+1 


1671 


1012 


0000 




0 




/0=ILLEGAL=A SOLID BLOCK. 


1672 


1013 


7305 




PTWO 




/GET A PTWO INTO THE AC. 


1673 


1014 


1700 




TAO I 


GGNUM 


/NUMBER OF CHARS+2 


1674 


1015 


4252 




JMS 


GIN 


/PUT A 34 AT END FOR DISPLAY ROUTINE. 


1675 


1016 


0034 




34 




/ FORM. 


1676 


1017 


1303 




TAD 


GCOUNT 


/AN OSCILLATING NUMBER, 


1677 


10 20 


3141 




DCA 


COUNT 


/GENERAL COUNT LOCATION, 


1700 






/ 








1701 


1021 


4551 


GL00P1» 


DISPLAY 




/DISPLAY CALLERS MESSAGE, 


1702 


1022 


0000 


Gl , 


0 




/HIS POINTER HERE 


1703 


1023 


4551 




Dl SPLAY 




/NOW DO OUR LINE OF CRAP, 


1704 


1024 


1120 




GTEXT 




/POINTER TO OUR BUFFER. 


1705 


1025 


4560 




GETL 




/IS THERE A TTY CHAR? 


1706 


10 26 


7410 




SKP 




/no: 


1707 


10 27 


4702 




JMS I 


GG INSERT 


/YES. PLACE IN BUFFER. 


1710 


1030 


2141 




ISi 


COUNT 


/BOP UP FLICKER COUNT. 


1711 


1031 


5221 




JMP 


GLOOPl 


/STILL good. DISPLAY AGAIN, 


1712 


10 32 


1303 




TAD 


GCOUNT 


/GET FLICKER COUNTER 


1713 


1033 


3141 




OCA 


COUNT 


/AND RESET TEMPORARY COUNTER. 


1714 


1034 


7201 




PONE 




/ + 1 


1715 


1035 


1700 




TAD I 


GGNUM 


/SET A "\" AT END WITH NO BLOCK FLICKER, 


1716 


1036 


425)2 




JMS 


GIN 


/PLACE IN bUFFER 


1717 


1037 


0034 




34 






1720 


1040 


4551 


GL00P2# 


DISPLAY 




/NOW DISPLAY USERS MESSAGE. 


1721 


1041 


0000 


G2 , 


0 




/H IS POI NTER . 


1722 


1042 


4551 




DISPLAY 




/NOW OUR bUFFER 


1723 


1043 


1120 




GTEXT 




/BUFFER POINTER. 


1724 


1044 


4560 




GETL 




/TEST LOW READER. 


1725 


1045 


7410 




SKP 




/NO CHAR THERE 


1726 


1046 


4702 




JMS I 


GG INSERT 


/INSERT INTO BUFFER 


1727 


10 47 


2141 




ISi 


COUNT 


/DONE YET??? 


1730 


1050 


5240 




JMP 


GL00P2 


/NO. DISPLAY AGAIN. 


1731 


1051 


5207 




JMP 


GMAI N 


/RESET FLICKER POINTER, 


1732 






/ 








1733 






/ 








1734 






/ 








1735 


1052 


0000 


GIN. 


0 




/PUTS A CHAR IN BUFFER 


1736 


1053 


1301 




TAD 


GMLEN 


/BASIC MESSAGE BEFORE USER DOES ANYTHING. 



1737 


1054 


3065 




OCA 


TEMP 


1740 


1055 


1065 




TAD 


TEMP 


1741 


10i>6 


7110 




CIL RAR 




1742 


1057 


13 04 




TAO 


GGTEXT 


1743 


1060 


3067 




UCA 


TEMP2 


1744 


1061 


1065 




TAO 


TEMP 


1745 


1062 


7010 




SAR 




1746 


1063 


7620 




SNL CLA 




1747 


1064 


5273 




JMP 


GLEFT 


1750 


1065 


1467 




TAD I 


TEMP2 


1751 


1066 


00 53 




AND 


L7700 


1752 


1067 


1652 




TAD 1 


GIN 


1753 


1070 


2252 


GINTO. 


ISZ 


GIN 


17 54 


10 71 


34 67 




DC A I 


TE MP 2 


1755 


1072 


5652 




JMP I 


GIN 


1756 






/ 






1757 


1073 


1652 


GLEFT, 


TAD I 


GIN 


I76ii 


1074 


7106 




CLL RTL 




1761 


1075 


7006 




RTL 




17 62 


1076 


70 06 




RTL 




1763 


1077 


5270 




JMP 


GINTO 


17 64 






/ 






1765 






/ 






17 66 


1100 


12 76 


GGNUMi 


GN UM 




1767 


1101 


0005 


GMLEN. 


L8NUM-1 




1770 


1102 


1200 


GO INSER1 


',G INSERT 


1771 


1103 


7770 


GCUUNT , 


-10 




1772 


1104 


1122 


GGTtXT, 


GTEXT+2 




1773 






/ 






17 74 






/ 






1775 






/ 






1776 






/ 






1777 


1105 


0000 


TTYGET , 


0 




20 00 


1106 


4556 




CHECKIO 




20 01 


1107 


10 72 




TAD 


KE YCHAR 


2002 


1110 


74 50 




SNA 




2003 


1111 


5705 




JMP I 


TTYGET 


2004 


1112 


23 05 




ISZ 


TTYGET 


2005 


1113 


1030 




TAD 


L4000 


20 06 


1114 


3000 




DC A 


0 


2007 


1115 


3072 




OCA 


KEYCHAR 


2010 


1116 


10 00 




TAO 


0 


2011 


1117 


5705 




JMP I 


TTYGET 


2012 






/ 






2013 






/ 






2014 


1120 


0000 


LINEBp 


LEFT 




2015 






GTEXT=LINEB 




2016 


1121 


7400 




BOTTOM 




2017 


1122 


2205 








2017 


1123 


2014 








2017 


1124 


3172 








2017 


1125 


34 00 








2017 








TEXT 


"REPLY :' 


20 20 






L8NUM=6 






2021 






LBMAX=62 


!-LbNUM 




2022 






/ 






2023 






/ 






20 24 






/ 






2025 






/ 






2026 






/ 






2027 






/ 






2030 






/ 






20 31 






/ 







/SAVE CHAKACTEN NUMBER. 

/GET CHARACTER Nu.^BER. 

/DIVIDE BY 2 TO GET ^^ORO NUMijER. 

/POINTER TO ACTUAL TEXT. 

/AND STASH AWAY. 

/REGET CHAR NUMBER. 

/IS IT ODD OR EVEN. 

/EVEN. GET LEFT HALF. 

/GET RIGHT HALF 

/BLAH OUT RI Gh I 6 81 TS 

/GET DESIRED SAVE CHAR, 

/BOP PAST CALLING CHAR. 

/AND STASH AWAY, 

/RETURN. 

/GET THE DESIRED CHARACTER TO bE INSERTED 
/ROTATE TO BITS 0-5. CANNOT INSERT 
/IN The MIDDLE OF THE BUFFER. 

/AND GO STORE AWAY THE WORD. 



/LEN OF MESS ALREADY IN BUFF -1 TO COMPENSATE FOR 0 CHAR. 

/POINTER TO INSERT ROUTINE. 
/FLICKER CUUNTER 
/ACTUAL TEXT POINTER. 



/ROOM FOR NON>OV£RLAPPED TTY ROUTINE HERE 

/CHECK 10 DEVICES NOW, 

/GET SAVED CHAR. 

/IS THERE REALLY ONE THERE??? 

/NO. RETURN 

/YES. BOP UP RETURN ADDRESS, 
/CHOP OFF STUCK ON SIT, 
/0 CAN BE USED RIGHT ONW. 
/2AP OUT OLD CHAR. 
/RETRI EVE CM AR . 

/EXIT TO SECOND LOCATION WITH CHAR IN THE AC. 



/START AT BOTTOM LEFT FOR DISPLAY, 
/BOTTOM OF SCREEN. 



/HALFWORO ASSUMED. 

/NUMBER OF PREVIOUS CHARS IN BUFFER. 
/MAXIMUM NUMBER OF USER CHARACTERS. 

FOUND BY GETTING MAX ON LINE(62) AND SUBTRACTING THOSE IN BUFFER (LBNUM ) , 



iJ032 






/ 




2033 








* L I N E r J + dl 


2034 


1153 


0000 




/! 0 0 


2035 






/ 




2036 






/ 




2037 






/ 




2040 






/ 




2041 






/ 




2042 






/ 




2043 






/ 




2044 






/ 




2045 






/ 




2046 






/ 




2047 


1154 


1375 


lUNO AD » 


TAD 


2050 






/ 




2051 






/ 




2052 






/ 




2053 






/ 




2054 


1155 


3373 


UNLOAD » 


DC A 


20 55 






/ 




2 0 56 


1156 


6141 




L I NC 


2057 








00 t 


2060 


1157 


0076 




S£ T I 


20 61 


11 60 


7 7 73 






2062 


1161 


20 20 




Ann 
AU u 


2063 


1162 


1120 


UN LU Ur » 


ADA 1 


2064 


11 63 


77 76 




— 1 
•"1 


2065 


1164 


00 01 




AX 0 


2066 


1165 


0737 






2067 


1166 


07 27 




CH K I 


2070 


1167 


7166 






2071 


1170 


02 3 6 




AO fN 1 


2072 


1171 


71 62 






2073 


1172 


a 7 a? 




CH K 


2074 


1173 


0300 


UNPOS » 


30 0 


2075 


1174 


0002 




PO P 


2076 






PM ODE 


2077 


1175 


73 00 


1 it TOI U 


CUA CLL 


2100 


1176 


5207 




IMP 


2101 






/ 




2102 






/ 




2103 






/ 




2104 






/ 




2105 






f 




2106 






/ 




2107 






/ 




2110 






/ 




2111 






/ 




2112 






/ 




2113 






/ 




2114 






/ 




2115 






/ 




2116 






/ 




2117 






/ 




2120 






/ 




2121 






/ 




2122 






/ 




2123 






/ 




2124 








EJECT 



-1*1 



/ALLOW SPACE FOH THE SUFFER 

/LAST wOHU OF THt CHAKACTL^ BUFFER 



UL3i?0 



UNPOS 



AUT07 



L20 



U 

.-1 

AUT07 
UNLOOP 



GMAIN 



/FOR A 'T SET TO POSITIN BLOCK TO 300 

/FOR A tu SET TO OSHlON kJLOCK TO 0 

/STORE THE BLOCK TO POSITION UNIT 0 TO (0 OR 300) 

/THIS ROUTINE UNLOADS ALL THE TAPES 
/EXCEPT FOR TAPE 0. IT IS SU SIMPLE 
/AND YET SO ELEGANT IT NEEDS 

/NO COMMENTS. SO GAHE UPON IT AND BE THANKFUL. 



/CLEAR THE AC AND JMP TO MIDDLE OF MESSASGE DISPLAY 
/KEEP MESSAGE GOING 



2ld5 






/ 






21^6 






/ 






2127 






/ 






2130 








»i20Z 




2131 






/ 




^LCO\fD Page 


2132 






/ 






2133 






/ 






2134 






/ 






2135 






/ 






2136 


1200 


0000 


GI \SEP% T 






2137 


1201 


0142 




AND 


Ll 77 


2143 


1202 


1026 




Tag 




2141 


1203 


3121 




OC A 


r T Yr £ 


2142 


12 0 4 


45 73 




bE ARCH 




2143 


12 0t> 


13 03 




GS PL 1 




2144 


1206 


1315 




GSPG 1 




2145 


120/ 


4253 




JHS 


GG L I MC 


2146 


1210 


5600 


GNX I T , 


JMP I 


n I i\fSt R T 


2147 


1211 


12 76 




Tad 




2150 


1212 


/040 




CM A 




2151 


12 13 


12 77 




Ta D 




2152 


1214 


7650 








2153 


12 15 


5/02 




J M p I 


r r ft r A Lj 


2154 








ASM I FN 


ECHO 


2155 


1216 


1121 




TAD 


F T YPE 


2156 










ECHO 


2157 


1217 


44 07 




PUTL 




2160 


1220 


1121 




TAD 


FTYPE 


2161 


1221 


0024 




AND 


L77 


2162 


1222 


3226 




DC A 


GPUT 


2163 


1223 


2276 




ISi 


GNUM 


2164 


1224 


1276 




TAD 


GNUH 


2165 


1225 


4700 




JH S I 


GG I N 


2166 


1226 


0000 


GPUT , 


0 




2167 


1227 


5701 




jMP I 


GG MA I N 


21712 






/ 




2171 






/ 






2172 






/ 






2173 






/ 






2174 






/ 






2175 






/ 






2176 






GNLF , 


ASHI FN 


ECHO 


2177 


1230 


4557 




CHLF 




2203 


1231 


5702 




JMP I 


CCCi Far 


2201 






/ 






2202 






/ 






2203 






/ 






2204 






/ 






2205 


1232 


7240 


GNRUB. 


NONE 




2206 


1233 


1276 




TAO 


GNUM 


2207 


1234 


7500 




SMA 




2210 


1235 


3276 




DCA 


GNUM 


2211 






/ 






2212 










ECHO 


2213 








ASHSKP 


4 


2214 


1236 


7640 




S2A CLA 




2215 


1237 


5242 




JMP 


GNRNO 


2216 


1240 


1307 




TAD 


GNL334 


2217 


1241 


44 07 




PUTL 




2220 






/ 






2221 






GNRNO, 


ASMIF£ 


ECHO 


2222 








CLA 




2223 


1242 


5701 




JMP I 


GGMA IN 



LIME GLTTE)^ ROUT! . 



/CHECKS CHAN A\D STICKS IN BUFFER. 
/CHOP OFF THE PARITY BIT. 

/A\D FOhCE 200 BIT ON FOR TESTS TO FOLLOW. 

/\0^. STASH AWAY IN FTYPE F OH SEARCH TO FOLLOW. 

/SEARCH LIST FOR FTYPE MATCH 

/SPECIAL CHARS AMD EXCEPTIONS. 

/h^HERE TO GO IF FOUND. 

/CHECK FOR BETWEEN 240 AND 340 

/NOPE. IT ISN T A 37. RETURN TO CALlER. 

/GET NUMBER OF CHARS. 

/TEST TO SEE IF THIS OVERFLOWS THE BUFFER 
/NUMBOER OF SPACES IN BUFFER. 

/TOO MANY. RESTART. 

/LOAD THE CHAR IN AC TO ECHO IF ECHOING CHARS* 
/GET THE CHAR. 

/ECHO CHAR ONLY IF SWITCH IS SET. 
/ECHO ON TTY. 
/GET CHAI?. 

/MAKE INTO A SIXBITTER 

/BOP UP COUNT 
/PLACE IN AC. 

/PLACE CHAR IN BUFFER 
/HERE IS CHAR. 

/ALRIGHT, GO BACK AND DO NEXT 



/LINEFEED WAS TYPED. GIVE C.R.L.F. 

/IF ECHOING IS DESIRED. 

/AND RESTART THE INPUT BUFFER. 



/RUBOUT TYPED. -1 TO AC. 

/SUBTRACT ONE FROM THE NUMBER OF CHARS IN THE 8UFER. 
/HAVE wE BACKSPACED TOO FAR? 
/NOPE. STORE AWAY. 

/DO WE WANT ECHOING? 

/NO. DO NOT ASSEMBLE IN TTY ECHO CHAR, 
/WAS BACKSPACE SUCCESFULL? 
/NO. 00 NOT PRINT "\'*. 
/FORM CHAR. 

/OUTPUT IT TO SHOW DELETE WAS SUCCESFULL. 
/DO WE HAVE ECHOING? 

/N0< w£ DON T. AC MIGHT BE N0N-2ER0, CLEAR TO E SURE. 
/NOW GO BACK AND START DISPLAYING LINE AGAIN. 



22 24 














22 25 






/ 








22 26 






/ 








22 27 














2230 






GA LL 1 


M D 11 1 r i\| 


ECHO 


/DO A CRLF ONLY IF SImITCH IS SET. 


22 31 


12 43 


72 01 




PO NE 






2232 


1244 


12 76 




TA D 


GN UM 


/WHIOH lb 1+bNUn 


2233 


1245 


4700 




JMS I 


GG IN 


/AND INbLni A I<?k500 Ab A ILHn|NAlUK 


2234 


1246 


0000 




0000 




/IN IT GOES , 


22 35 


1247 


45 57 




CRLf 




/UU A L.AK Ktl AFvU LIN rt.tJ» 


2236 


1250 


1675 




TAD I 


GGLI NE 




2237 


1251 


3200 




DCA 


GINSERT 




2240 


1252 


5600 




JMP I 


GI NSER T 




22 41 






/ 








2242 






/ 








2243 






/ 








2244 






/ 








2245 






/ 








2246 






/ 








2247 






/ 








2250 






/ 








2251 






/ 








2252 


12 53 


00 00 


GGLI MC » 


0 






2253 


12 54 


1121 




T AO 


F T Y P E 




22 54 


1 o 


1147 




T A 0 


M3 40 


/SEE IF ITS GREATER THAN 340 




12 56 


7510 




SPA 




/? 




XCO ' 


12 57 




TAD 




/IT ISNT, SO MAKE IT A BIG NUM FOR SECOND TEST 


CCJl 


12 60 


12 74 




TAD 


GGM3 3 


/SEE IF ITS GREATER THEN 372 


22 60 


12 61 


7 710 




SPA CLA 




/? 


0 0 f^A 


12 62 


10 56 




TAD 


M4 0 


/ITS GREATER THEN 337 BUT LESS THEN 373 


22 62 


12 63 


1121 




TA D 


FT YP E 


/NOW EITHER UPDATE FTYPE OR LEAVE IT ALONE 


22 63 


1264 


3121 




DCA 


FT YPE 


/THE UPDATE CONVERTS A 37 CHAR TO A 35 CHAR 


22 64 


1 O AS 


1191 
XX C.X 




TAD 


FT YPE 


/NOW GET THE MODIFIED OR UNMOOIFED CHAR 




1 O A A 


1147 




TAD 


M340 


/SUBTRACT OFF 340 FOR LIMIT TEST 


22 66 


12 6/ 


71 00 




r! 1 




/CLEAR THE Lie FOR THE FOLLOWING TEST 


2267 


1270 


1025 




TAD 


L HwW 


/MOW Ann TM ^ !^SA rnR inwFtt \ tmtT TF<!T 


2270 


12 71 


7630 




S2L CLA 




/TF rnnn iiwr I'-^^^lnllJ a i 


2271 


12 '2 


2253 




I S2 






22 72 












/ELSE GO TO THE FIRST RETURN 


22 73 






/ 








2274 






/ 








22 75 






r 














f 








22 77 






/ 








23 00 






i 








23 01 






/ 








2302 






/ 








2303 






f 








2304 


1274 


7745 


GGM33, 


-33 






2305 






/ 








2306 






/ 








2307 


1275 


1000 


GGLINE, 


GLINE 




/COMMUNICATION. 


2310 


1276 


0000 


GNUM, 


0 




/NUMBER OF CHARS IN BUFFER 


2311 


1277 


0054 


GLIMIT, 


LBMAX 




/MAX NUM OF USER CHARS IN BUFFER. 


2312 


1300 


1052 


GGIN» 


GIN 






2313 


1301 


1007 


GGMA IN , 


GMAl N 






2314 


1302 


1006 


G6CLEAR 


tGCLEAR 




/CROSS PAGE REFEREENCES. 


2315 






/ 








2316 






/ 








2317 






/ 








2320 






/ 








2321 






/ 








2322 


1303 


0212 


GSPLl. 


212 







2323 


1304 


0215 




215 




2324 


1305 


0377 




377 




232b 








ASMir2 


TERHC-44 


2326 








244 




2327 


1306 


0247 




24 7 




2330 


1307 


0334 


GNL334, 


334 




2331 


1310 


0300 




300 




2332 


1311 


0337 




337 




2333 


1612 


0224 




22 4 




2334 


1313 


0225 




225 




2335 


1314 


4243 




4243 




2336 






/ 






2337 






/ 






23 40 






/ 






23 41 


1315 


12 30 


GSPGl, 






2342 


1316 


1243 




GALL 




2343 


1317 


1232 




GNRUB 




2344 








ASMi rz 


TERMC-44 


234b 








GNX! T 




2346 


1320 


1210 




GNXiT 




2347 


1321 


1210 




GNXI T 




23b0 


1322 


1210 




GNXIT 




23 51 


13 23 


12 10 




GNXI T 




2352 


1324 


1154 




LUNOAD 




2353 


1325 


1155 




UNLOAD 




2354 


1326 


1210 




GNXIT 




2355 






/ 






2356 






/ 






2357 






/ 






2360 






/ 






2361 






/ 






2362 






/ 






2363 


1327 


0000 


MMQVE, 


0 




2364 


1330 


7240 




MONE 




2365 


1331 


1327 




Tad 


MMOVE 


2366 


1332 


3012 




OCA 


AUT03 


2367 


1333 


7240 




MONE 




2370 


1334 


1412 




TAD I 


AUT03 


2371 


1335 


3013 




OCA 


AUT04 


2372 


1336 


7240 




MONE 




2373 


1337 


1412 




TAD I 


AUT03 


2374 


1340 


>3014 




OCA 


AUT05 


2375 


1341 


1412 




TAD I 


AUTO 3 


2376 


1342 


7040 




CHA 




2377 


1343 


3141 




OCA 


CO UN T 


2400 


1344 


5347 




JMP 


MMEXIT-2 


2401 


1345 


1413 




TAD I 


AUTO 4 


2402 


1346 


3414 




OCA I 


AUT05 


2403 


1347 


2141 




ISH 


COUNT 


2404 


1350 


5345 




JMP 


.•3 


2405 


1351 


5412 


MMEXIT, 


JMP I 


AUT03 


2406 






/ 






2407 






/ 






2410 


1352 


0000 


PPUSH, 


0 




2411 


1353 


4564 




MOVE 




2412 


1354 


0117 




rsuE 




2413 


1355 


1366 




PPTEMP 




2414 


1356 


0011 




FNAME+3-rsi2E*l 


2415 


1357 


5752 




JMP I 


PPUSH 


2416 






/ 






2417 


1360 


0000 


PROP, 


0 




2420 


1361 


4564 




MOVE 




2421 


1362 


1366 




PPTEMP 





/EOF CHAR=OOLLAR SIGN? 

/YEP. PLACE IT ON THE EXCEPTION TABLE 



/CONTROL U CHARACTER 



/LINE FEED 
/C .R . 
/RUB OUT 

/DO WE WANT DOLLAR SIGN IN LIST? 
/YEP. DOLLAR SIGN ILLEGAL 



/POINTER TO THE UNLOAD ROUTINE. 



24 22 


1363 


i3117 


rs ut 


2423 


1364 


iiiaii 


r^Az-iL + ^^ro 1?'L + 1 


24 24 


13 6b 




ji^P I PPC'P 


2425 






/ 


2426 






/ 


24 27 


13 66 


mm 


PPTE. MP .i^ 


243^ 






apPT LMP + F\ 


2431 


1376 






2432 






/ 


24 33 






/ 


24 34 






/ 


2435 






EJECT 



/JJ3T Tj i,Et WHEKt IT IS. \EXT LOCATIQM IS COMPLETELY FREE. 



2436 / 

2437 / 

2440 / 

2441 / 

2442 / 

2443 / 

2444 / EVOKt PIP2 NOW 

2445 / 
24 46 / 
2447 / 
24 5SJ / 

2451 / 

2452 ChAl\ "PIF2" 



0000 *20 

0001 PMODE 
000<f EJECT 



00133 / 

0004 / 

0005 / 

0006 / THIS IS THE SECOND PART OF PIP. IT S CALLED P i P 2. 

0007 / 

0010 / 

0011 / 

0012 / 

0013 / 

0014 / 

0015 / 

0016 / 

0017 / 

0020 / 

0021 / 

0022 / 

0023 / 

0024 / 

0025 / 

0026 / 

0027 / 

0030 / 

0031 / 

0032 / 

0033 / 

0034 / 

0035 / 

0036 / 

0037 EJECT 



G3040 

0042 
0043 
0044 
00 4t> 

01646 
0047 
0050 

00tj3 

00!?4 

00t>5 

005>6 

0057 

0060 

0061 

00 62 

0063 

0064 

0065 

00 66 

0067 

0070 

0071 

00 72 

0073 

0074 

0075 

0076 

0077 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

01 10 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0130 

0131 

0132 

0133 

0134 

0135 

0136 



« 1 4 N(! 



1400 
1401 
1402 



0000 
4224 
1453 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

TREAD, 



Gt^tRAL MASS STORAGE I/O ROUTIMES, 



1403 
1404 
1405 
1406 

1407 
1410 
1411 



1412 
1413 
1414 



1415 
1416 
1417 
1420 



7501 
7501 
7501 
7501 

4560 
4560 
4560 



00 00 
4224 
1464 



7505 
7505 
75 05 
75 05 



CALlING StUUL-NiCt: 



READ (OH WRITE) 

UNIT NUMBER 

FIRST CORE LOCATION OF TRAMSF£R 
NUMBER UF BLOCKii TO BE T RANSFt RREJ . 
FIRST BLOCK OF TRANSFE^^. 



/ 
/ 
/ 
/ 

TWRITE. 



ROUTINE HAS THE ABILITY TO GO INTO EXTENED CORE. 
IF HIS NUMBER OF BLOCKS MAKES THE LOCATION COUNTER 



0 

JMS 

TAPER 

ASMI FN 

ASMSKP 

NOSUCH 

NOSUCH 

NOSUCH 

NOSUCH 

ASMIF2 

ASMSKP 

RF08R 

RF08R 

RF08R 

RF08R 

NOSUCH 
NOSUCH 
NOSUCH 



0 

JMS 

TAPEW 

ASMIFif 

ASMSKP 

RF08W 

RF08W 

RF08W 

RF08W 

ASMI FN 
ASMSKP 
NOSUCH 
NOSUCH 
NOSUCH 
NOSUCH 



•WRAP AROUND" 



TWHERE 



RF08 
4 



RF08 
4 



TWHERE 



RF08 
4 



RF08 
4 



/MAIN READ ROUTINE 

/GET CORRECT MASS DEVICE 
/k)0-07 = TAPE HEAD 

/OO wE WANT THE Rr08 ROUTINES ASSEMBLED? 
/YEP BYPASS NON-UNIT ASSIGNMENTS. 



/UNITS 10-47 NOT PRESENT 
/ARE THEY NOT THERE? 

/NOT THERE. DO NOT ASSEMBLE IN POINTERS. 



/UNITS 0-47 INCASE OF RKWSS 
/UNITS 50-77 FREE FOR NOk^. 



/MAIN WRIT EE. 

/GET COORRECT MASS STORAGE DEVICE. 

/FIRST IS LINC TAPE. 

/DISK DESIRED? 

/NOPE. BYPASS POUTERS 

/UNITS lfc>-47 ARE DISK UNITS NOW, 



/TEST AGAIN. 

/SKIP NOSUCH UNITS IF DISK DESIRED. 

/UNITS 10-17 NOT YET ASSIGNED. 

/UNITS 20-77 FREE FOR NOW, 



0137 






/ 






0140 


14 21 


45<3ij 








0141 


142ff 


4560 




^JOSUCH 




0142 


14 2v5 


4560 




\ J SUCH 




0143 






/ 






0144 






/ 






0145 






/ 






0146 






/ 






0147 






/ 






01b0 


1424 


0000 




0 




01 51 


1425 


7344 








0152 


1426 


1224 




tao 


Tw HE f^C 


0153 


14 2 / 


3065 




OCA 


TEMP 


0154 


14 3C3 


1465 




TAD I 


TEMP 


0155 


14 31 


3065 




DC A 


TEMP 


0156 






/ 






0157 






/ 






0160 








ASMI r:{ 


RF?8 


0161 








ASMSKP 


6 


0162 






/ 






0163 


1432 


1465 




TAD I 


TEMP 


0164 


1433 


1356 




TAO 


RK70 


01 65 


14 34 


00 61 




AND 


L30 


0166 


1435 


7112 




ClL f^TK 




0167 


1436 


3107 




DC A 


RKDRIV 


0170 






/ 






01 71 






/ 






0172 


1437 


1465 




TAD I 


TEMP 


01 73 


14 40 


7012 




RTR 




0174 


1441 


7010 




PAR 




0175 


14 42 


0060 




AND 


L7 


01 76 


1443 


1224 




TAO 


twhere 


01 77 


1444 


3224 




OCA 


TWHERE 


0200 


1445 


1624 




TAD I 


TWHERE 


0201 


1446 


3224 




DCA 


TWHERE 


0202 


1447 


1065 




TAD 


TEMP 


02 03 


14 50 


3624 




DCA I 


TWHERE 


0204 


14 51 


2224 




\Si. 


TWHERE 


0205 


1452 


5624 




JMP I 


TWHERE 


0206 






/ 






0207 






/ 






0210 






/ 






02 11 






/ 






0212 


14 53 


0000 


TAPER* 


0 




0213 


14 54 


12 00 




TAD 


TREAD 


0214 


1455 


3212 




DCA 


TWRI TE 


0215 


1456 


1312 




TAD 


TERENT 


0216 


1457 


3713 




DCA I 


TEERNT 


0217 


1460 


3707 




DCA I 


TTSKP 


0220 


1461 


4711 




JMS I 


TTBLAH 


02 21 








LMODE 




0222 


1462 


0722 




RDE I 




0223 








PMODE 




0224 


1463 


5276 




JMP 


TEXIT 


0225 






/ 






0226 






/ 






mi 


1464 


00 00 


TAPEW* 


0 




0230 


1465 


1310 




TAD 


TTTSKP 


02 31 


14 66 


3707 




DCA 1 


TTSKP 


0232 


1467 


1314 




TAO 


TTAPEW 


0233 


14 70 


3713 




DCA I 


TEERNT 


0234 


1471 


4711 




JMS I 


TTBLAH 


02 35 








LMODE 





/JETS CORRECT MASS STORAGE DEVICE. 
/-2 

/GET CALLING. 

/GET ORIGi:viAL CALLING. 

/GET USER CALLING. 



/DISK 
/NOPE 

/GET USERS UNIT. 

/SUBTRACT ONE FRqm THE DRIVE NUMBER 
/CHOP OFF RANDOM CRAP. 
/SHIFT TO CONTHOLLER BITS 9-10 
/SAVE AWAY 



/GET THE USERS UNIT AGAIN. 

/GET 8ITS 6-6 

/GET START OF LIST. 
/AND STORE AWAY. 
/GET CALLING ADDRESS, 
/AND STASH AWAY. 
/GET USERS CALLING ADDRESS, 
/AND SET UP PHONNEY CALL. 
/GO TO SECOND LOC. 
/PHONNEY CALL ALL DONE. 



/MAIN LINC TAPE READ ROUTINE. 

/GET READ ADDRESS. 

/AND SAVE FOR READ. 

/SET TO RETRY READ IF ERROR 

/SAVE IN RETRY LOCATION 

/OO A CHECK OF CHECKSUM, 

/GO PERFORM FOLLOWING OPERATION. 

/NEXT INSTRUCTION IS EXECUTED BY TBLAH IN LMODE 
/READ AND LEAVE GOING. 
/JUST FOR ASSEMBLER. 
/AND EXIT 



/GENERAL LINC TAPE WRITE ROUTINE. 
/SET UP TO IGNORE BAD CHECKSUM. 
/AND STASH AwAY. 

/FOR WRITE ERROR REWRITE ENTIRE BLOCK 
/DO WRITE NOW, 



0236 


1472 


0726 




WRI I 






63237 








PMODE 




/BACK INTO PMODE 




1473 


3707 




OCA I 


TTSKP 


/SET TO CHECK CHECKSUM, 


0241 


1474 


4711 




JMS I 


TTBLAH 


/NOW DO CHECK OF WHAT WE JUST WROTE, 


632 42 








LMODE 






0243 


14 75 


0727 




CHK I 






02 44 








PMODE 






0245 






/ 








0246 


1476 


7307 


TEXIT, 


PFOUR 




/GENERAL EXIT. 


0247 


1477 


1212 




TAO 


TWRI TE 


/GET WRITE 


0250 


1500 


3212 




OCA 


TWRI TE 


/GO PAST ARGUEMENTS, 


02S>1 


1501 


5612 




JMP I 


TWRITE 


/PAST ARGUEMENTS. 


0252 






/ 








02 53 






/ 








0254 


1502 


0000 


ASET , 


0 




/INITIALIZES ARGUEMENT GETTER FOR AMSS STORAGE 


0255 


1503 


7240 




MONE 




0256 


1504 


1212 




TAO 


TWRI TE 


/FIRST AGRt 


0257 


1505 


3017 




OCA 


AUTOS 


/ARC REGISTER. 


0260 


1506 


5702 




JMP I 


ASET 


/EXIT 


0261 






/ 








0262 






/ 








0263 






/ 








02 64 






/ 








0265 






/ 








0266 






/ 








0267 






/ 








0270 


1507 


1750 


TTSKP# 


TSKP 




/CHECKSUM SKIP 


0271 


1510 


7410 


TTTSKPi 


SKP 




/INSTRUCTION TO IGNORE CHECKSUM 


0272 


1511 


1600 


TTBLAH , 


T8LAH 




/POINTER TO I/O DOER 


0273 


1512 


1627 


TERENT » 


TREENT 




/RETRY LOCATION 


02 74 


1513 


20 32 


TEERNT , 


TTRENT 




/RETRY SWITCH 


0275 


1514 


1413 


TTAPEWf 


TWRI TE+1 


/RETRY ENTRIE WRITE ON ERROR 


0276 






/ 








0277 






/ 








03 00 






/ 








0301 






/ 








0302 






/ 








0303 


1515 


7240 


FF ILEC. 


MONE 




/COPIES A NAMED FILE TO ANOTHER NAMED FILE. 


0304 


1516 


3106 




DCA 


OUTNUM 


/2ET COUNTER TO 1 


0305 


1517 


7305 




PTWO 




/SET UP SECOND DIRECTORY LOOKUP 


0306 


1520 


3123 




DCA 


rWHAT 


/IT S AN OUTPUT FILE 


0307 


1521 


1737 




TAD I 


FFTEMP 


/GET THE ORIGINAL SI?.E 


0310 


1522 


3117 




OCA 


FSI2E 


/PLACE IN THE SIZE NOW, 


0311 


1523 


4563 




DIRECT 




/NOW ALLOCATE SPACE, 


0312 


1524 


1120 




TAO 


FUNI T 


/GET THE NEW OUTPUT UNIT 


0313 


1525 


3105 




DCA 


OUTUNIT 


/AND SET UP OUTPUT UNI T 


0314 


1526 


1122 




TAD 


FBNUM 


/GET OUTPUT BLOCK 


0315 


1527 


3104 




DCA 


OUTBLOCK 


/AND SET UP. 


0316 


1530 


4403 




HP OP 




/POP IN UPPER SAVED F8L0CK 


0317 


1531 


1120 




TAO 


FUNI T 


/SAVE THE INPUT UNIT 


0320 


1532 


3103 




DCA 


INUNIT 




0321 


1533 


1122 




TAO 


FBNUM 


/GET THE INPUT STARTING BLOCK 


0322 


1534 


3102 




DCA 


INBLOCK 


/AND SET UP 


0323 


1535 


4554 




COPY 




/NOW COPY THE FILE 


0324 


1536 


5552 




PIP 




/AND RETURN TO PIP. 


0325 






/ 








0326 






/ 








0327 






/ 








0330 


1537 


3327 


FFTEMP, 


HHTEMP 






0331 






/ 








0332 






/ 








0333 






/ 








0334 






/ 









0335 
0336 
0337 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
03!50 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
04 07 
0410 
0411 
0412 
0413 
0413 
0413 
0413 
0413 
0414 
0414 
0414 
0414 
0414 
0414 
0414 
0414 
0414 
0414 
0414 
0414 



1540 


00 00 


RFOISK, 0 






1541 


1120 


TAD 


FUNI T 


/GET THE USERS UNIT 


1542 


3200 


DCA 


TREAD 


/AND SAVE FOR A SECOND 


1543 


4402 


TAPE 




/DO THE NECESSARY STUFF, 


1544 


12 00 


TAD 


TREAD 


/REGET THE USERS UNIT 


1545 


0356 


AND 


RK70 


/JUST HAJOR DEVICE BITS. 


1546 


7450 


SNA 




/iERO? 


1547 


1054 


TAO 


L10 


/YEP. ADO IN 10 TO FORCE CONTROLLER 


1550 


1356 


TAD 


RK70 


/THIS IS TO FORCE BETWEEN 10-37 


1551 


0356 


AND 


RK70 




1552 


10 54 


TAD 


L10 




1553 


1120 


TAD 


FUNIT 




1554 


3120 


DCA 


ruNIT 


/FUNIT IS ALL SET NOW, 


1555 


5740 


JMP I 


RFOISK 





1556 0070 



/ 
/ 
/ 

RK70, 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 



70 



ASMIF2 
ASMSKP 



1557 
1560 
1561 
1562 

1563 
1564 
1565 

1566 
1567 
1570 
1571 
15 72 
1573 
1574 
1575 



0614 
1116 
0340 
2401 

2005 
4306 
0310 

0503 
1323 
2515 
4005 
22 22 
1722 



TMESS2, TEXT 



RF08 
4 



"FLINC TAPE 



/RF08 DESIRED? 

/NO. DON T PUT MESSAGE HERE. 



40 40 



FCHECKSUM ERROR 



0415 
0415 

0416 
0417 
0420 
0421 
0422 
0423 
0424 
04 25 
0426 



1576 4043 



VE 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 



/TAPE FRf^oR MESSAGE HERE TO LEA 



ROOM LATTER ON. 



Eject 



( 



0427 








« 1 6 1 ■ 0 






0430 






/ 








0431 






/ 








!(J432 






/ 






KAU. G?.\EHAL TAPE I/O LOOP. 


654 33 






/ 








0434 






/ 








0435 






/ 








0436 


1600 


0000 


TBLAH, 






/PERF^R^'S A FU^CT10^J, THE-'vi EXITS. 


0437 


16 01 


4555 




SETA 




/SET UP AHGUEMEf^T GET TEH . 


0440 


1602 


1417 




GETA 




/GET UNIT :^UH8t^ 


e<4 41 


1603 


7110 




CLL RAK 




/MOVE INTO CORhiECT PLACE 


0442 


1604 


1061 




TAO 


L30 


/SET UP EXTENEO UNITS 8|TS. 


0443 


1605 


3304 




DCA 


TAXD 


/AND STORE A^AY. NO-PAUSE AND EXTENEDEO ADDRESSING ALSO SET. 


0444 


16k36 


/206 




CLA RTL 




/NOiN HOVE BACK TO BIT 6 


0445 


1607 


7006 




RTL 






0446 


1610 


1600 




TAD I 


TBLAH 


/AOD IN UESIREO FUNICTION. 


04 4 7 


16 11 


33 17 




DCA 


TOPR 


/AND STORE A»^AY TO BE EXECUTED. 


0450 


1612 


1317 




TAO 


TOPR 


/GET ThE OPERATION AGAIN. 


0451 


1613 


3307 




OCA 


TSTOPH 


/SET UP SELECT-*vRI TE LOCK CHECK. 


0452 


1614 


2200 




\St 


TBLAH 


/SKIP PAST CRAP. 


0453 


1615 


1417 




GETA 




/GET STARTING ADDRESS. 


0454 


1616 


3315 




DCA 


TLOCl 


/AND STORE AWAY. 


0455 


1617 


1417 




GETA 




/GET *gORO COUNT. 


0456 


1620 


7450 




SNA 




/IS IT ^ERO? 


0457 


1621 


5600 




JHP I 


TBLAH 


/YEP. EXIT. 


0460 


1622 


7041 




CI A 




/NOPE. COMPlEMETN IT. 


0461 


1623 


33 61 




OCA 


TCOUNT 


/STASH Av^AY. 


0462 


1624 


1417 




GETA 




/GET BLOCK NUMBER 


0463 


1625 


7001 




lAC 




/FOR UPCOMING SUBRACTION ERROR. 


0464 


1626 


3320 




DCA 


tblock 


/AND OPLACE IN FIRST BLOCK. 


0465 






/ 








0466 






/ 








0467 






/ 








0470 


1627 


7240 


TREENT . 


MONE 




/TO RETRY SAME BLCOK AFT£R ERROR. 


04 71 


16 30 


1320 




TAD 


TBLOCK 


/RESET BLOCK NUMBER TO CORRECT ONE. 


0472 


1631 


3320 




DCA 


TBLOCK 




0473 


1632 


1315 




TAO 


TLOCl 


/GET THE FIRST LOC 


0474 


1633 


7440 




S2A 




/IT S ifERO. CORRECT FOR FIELD CHANGE 


0475 


1634 


5244 




JMP 


TDOWN 


/NOT 2ER0 OK, 


0476 


1635 


1033 




TAD 


L7000 


/BOP DOWN FIELD. 


0477 


1636 


1304 




TAO 


TAXO 


/IN EXTENDED REGISTER 


0500 


1637 


3304 




DCA 


TAXO 




0501 








ASMI F£ 


RF08 


/DISK ROUT INES THERE . 


0502 








ASMSKP 


4 


/NO. DO NOT ASSEMBLE IN CODE TO PROTECT 7400-7777 OF FIELD 0. 


0503 


1640 


1304 




TAD 


TAXO 


/REGET THE NEXT aXO REGISTER. 


0504 


1641 


0033 




AND 


L7000 




0505 


1642 


7650 




SNA CLA 




/ARE WE CROSSING BOUNDARY TO LOWER CORE? 


0506 


1643 


1064 




TAO 


M400 


/YES. BOP DOWN BY AN EXTRA 400 SO HE DON T 8ASH DATA BREAK 


0507 












/AND THE READ ROUTINES THERE. 


0510 






/ 








0511 


1644 


1064 


TDOWN, 


TAO 


M400 


/400= LENGTH OF 1 RECORD. 


0512 


1645 


3315 




OCA 


TLOCl 


/LOC ALL SET TO GO. 


0513 






/ 








0514 


1646 


1143 


TRENT2. 


TAD 


M215 


/ENTERS HERE IF A SKIP OVER RECORD. M215=LENGTH OF TAPE+10 SECONDS. 


0515 


1647 


3363 




OCA 


TERRC2 


/SET UP WAIT COUNT. 


0516 


1650 


1031 




TAD 


L5000 


/SET MAINANCE MODE 


0517 


1651 


6151 




6151 




/FOR TESING WHETHER OR NOT UNIT OK 


0520 






/ 








05 21 






/ 








0522 






/ 








0523 


1652 


72 01 


TLOOP, 


PONE 




/MAIN LOOP TO 00 NEXT RECORD. IS THIS LAST RECORD? 


0524 


1653 


1361 




TAO 


TCOUNT 


/GET THE NUMBER OF RECORDS TO GO 


0525 


1654 


76 40 




S2A CLA 







107 cO 


16 55 


5261 




JM P 


,4-4 


05 27 


16 56 


1317 




TAD 


TOPR 


05 30 


16 57 


00 34 




AND 


L7 75 7 




16 60 


3317 




DC A 


TOPR 


\DZf OC 








ASMI FZ 


Rr08 










ASliSKP 


14 




1661 


1315 




TAO 


TLOCl 




1 6 62 


1040 




TA D 


L4 00 


0536 


1 663 


10 40 




TAO 


L400 


107 o / 


16 64 


7640 




S2A CLA 




0540 


1665 


52 75 




jmp 


TlPI 


107 ** X 


1666 


1304 




TAD 


TAXO 


0542 


1667 


0033 




AND 


L7 00 0 


0543 


1670 


7640 




S2A CLA 




05 44 


1671 


5275 




JMP 


TLPl 


0545 


1672 


1040 




TAD 


L4 00 


0546 


1673 


1315 




TAD 


TLOCl 


0547 


1674 


3315 




OCA 


TLOCl 


0550 






/ 






0551 


1675 


7300 


TLPl, 


CLA CLL 




0552 


1676 


1040 




TAD 


L400 


0553 


1677 


1315 




TAO 


TLOCl 


05 54 


17 00 


3315 




OCA 


TLOCl 


0555 


1701 


6141 




LI NC 




0556 








LMODE 




0557 


1702 


0323 




ROR I 


i 


0560 


1703 


1160 




ADM I 




0561 


1704 


0000 


TAXO. 


0 




0562 


1705 


0001 




AXO 




0563 


1706 


0011 




CLR 




0564 


1707 


0000 


TSTOPR* 


0 




0565 


1710 


0000 




0000 




0566 


1711 


0500 




lOB 




0567 


1712 


6154 




6154 




05 70 


1713 


4071 




STC 


TEHP4 


0571 


1714 


1020 




LDA 1 




0572 


1715 


0000 


TLOCl* 


0 




0573 


1716 


0023 




THA 




0574 


17 17 


00 00 


TOPR » 


0 




05 75 


1720 


00 00 


T8L0CK » 


0 




05 76 


1721 


1000 




LOA 




05 77 


17 22 


0071 




TEMP4 




06 00 


17 23 


0002 




POP 




06 01 








PMODE 




06 02 


1724 


23 20 




ISZ 


tblock 


06 03 


1725 


7012 




RTH 




06 04 


17 26 


7620 




SNL CLA 




0605 


1727 


5357 




JMP 


TSELER 


06 06 








LMODE 




0607 


1730 


0002 


TL0OP2, 


POP 




0610 








PMODE 




0611 


1731 


4556 




CHECKIO 




0612 


1732 


23 62 




ISZ 


TERRCl 


0613 


1733 


5340 




JMP 


TNT2LG 


0614 


1734 


2363 




ISZ 


TERRC2 


0615 


1735 


5340 




JMP 


TNT2LG 


0616 






/ 






0617 


1736 


4764 




JMS I 


TEMAIN 


0620 


1737 


2202 




TMESSl 




0621 






/ 






0622 


1740 


6141 


TNT2LG. 


. LINC 




0623 








LMODE 




0624 


1741 


0416 




STO 





/NO. STILL MORE TO GO, 

/LAST ONE, TURN OFF MOTION BIT. 



/RF08 OEISRED? 

/NOPE. DON T ASSEMBLE IN CODE TO PROTECT 7400. 
/GET THE LAST LOCATION. 

/SiEE IF NEXT IS GOING TO READ INTO 7400. 
/?? 

/NO. [T ISN T. 

/GET THE TAXO TO SEE IF 

/IT S 74i3fc; OF FIELD 0 

/NOT FIELU 0 

/WE RE GOING TO BASH 7400, SO SKIP PAST IT. 



/LINC MUST BE CLEAR 
/80P UP LOCATION 



/GO OVER INTO LMOOE 

/MOVE OVERFLOi^ BIT INTO CORRECT TAPE POSITION. 
/UPDATE TAXO AND AXO ALL AT ONCE. 



/SEND TO CONTROLER 

/CLEAR AC FOR TEST TO FOLLOV^ DUMMY OPERTION. 

/PEKFORM USERb OPERATION ONCE. BLOCK NUM8ER=0 INSURES SUCCESS. 
/BECAUSE BLOCK NUMBER IS ADDED TO SPECIAL REGISTER WHICH IS READ IN. 

/DO 8 lOT TO GET SPECIAL REGISTER. 
/IF TAPE OK(SELECT AMD WRITE-LOCK OFKAY 
/THEN 8IT10=i; .MOW DO REAL USER OPERATION. 
/GET ADDRESS 

/AND SENQ IT TO CONTROLLER 
/ACTUAL TAPE INSTRUCTION 
/ACTUAL BLOCK NUMBER. 
/RECALL PAST SPECIAL FUCTIQN 
/REGISTER AND CHECK WHETER UNIT OK 
/GET BACK INTO B MODE 

/BOP UP BLOCK NUMBER 
/PLACE BIT 10 IN LINC 

/IS UNIT OK WITH WRITE LOCK OFF IF NECESSARY, 

/UNIT NOT OK, DISPLAY MESSAGE. 
/TELL ASSEM WE LL BE IN LMODE. 

/GET INTO 8 MOOE. IF IN 8 MODE ITS JUST A NOP. 

/CHECKIO I/O DEVICES WHILE WAITING IN LOOP. 

/80P UP FIRST WAIT COUNT 

/DIDN T OVERFLOk^ YET, GO DOWN 

/OUTER SKIP OK? 

/BIG COUNT STILL OK. GO DOWN, 

/WE VE WAITED TOO LONG. GIVE MESSAGE. 
/TO LONG MESSAGE 

/GET INTO LINC MODE FOR FLAG TESTING. 
/GET INTO L MOOE TO TEST TAPE. 



062!? 


174ii 


77 30 




JMP 


TL00P2 


/NOT YET DONE. GO BACK ANO WAIT, 


0626 


1743 


0003 




TAC 




/DONE. GET CHECKSUM INTO AC. 


0627 


1744 


0002 




POP 






0630 








PMODE 




/AND GET BACK INTO 8 MODE 


8631 


1745 


7040 




CHA 




/MAKE INTO iJEKO IF 7777 


0632 


1746 


7650 




SNA CLA 




/GOOD CHECKSUM 


0633 


174/ 


53 52 




JMP 


TDOC 


/YEP. TRY NEXT RECORD. 


0634 


1750 


7410 


TSKP , 


SKP 




/SWITCH FOR ERROR IF BAD CHECKSUM. 


0635 


1751 


5355 




JMP 


TCHEKE 


/BAD CHECKSUM. GIVE MESSAGE 


0636 


1752 


2361 


TDOC, 


\Si 


TCOUNT 


/OK. IS ALL ODNE? 


06 37 


1753 


5252 




JMP 


TLOOP 


/NOPE. DO NEXT 


0640 


1754 


5600 


T8EXIT. 


JMP 1 


TBLAH 


/YEP. EXIT 


0641 






/ 








0642 






/ 








0643 






/ 








^644 






/ 








064t> 


1755 


4764 


TCHEKE , 


JMS I 


TEMAIN 




0646 


1756 


1557 




TMESS2 




/CHECKSUM ERROR 


0647 


1757 


4/64 


TSELER, 


JMS I 


TEMA IN 




0650 


1760 


1765 




TMESS3 




/BLOCK NUMBER OR TIMING ERROR 


0651 






/ 








0652 






/ 








0653 






/ 








0654 






/ 








0655 






/ 








0656 


1761 


0000 


TCOUNT, 


0 






0657 


1762 


0000 


TERRCl. 


0 






0660 


1763 


0000 


TERRC2* 


0 






0661 


1764 


20 05 


TEMAIN , 


TMAINE 






0662 






/ 








0663 






/ 








0664 






/ 








0665 






/ 








0666 






/ 








0667 






/ 








0670 






/ 








0671 






/ 








0672 






/ 








06 73 








ASMIFN 


RF0a 


/RF08 DEISREO? 


0674 








asmskp 


4 


/YEP, DON T ASSEMBLE MESSAGE HERE 


0675 






/ 








0676 






TMESS2, 


TEXT 


"FLINC TAPE 




06 77 






FCHECKSUM ERROR 






0700 






tl 








07 01 






/ 








0702 


1765 


0623 










0702 


1766 


0514 










0702 


1767 


0503 










07 02 


17 70 


2440 










0702 






TMESS3, 


TEXT "FSELECT OR 




07 03 


1771 


1722 










0703 


1772 


4306 










07 03 


17 73 


27 22 










0703 


1774 


1124 










0703 


17 75 


05 55 










0703 


1776 


1417 










0703 


1777 


0313 










0703 


2000 


4005 










07 03 


20 01 


2222 










0703 


2002 


1722 










07 03 


20 03 


4040 










0703 






FWWITE- 


LOCK ERROR 




0704 


2004 


4043 











0704 

07 05 / 

0706 / 

0707 / 

0710 / 

0711 / 

0712 fe.j£CT 



0713 






/ 






0714 






/ 






0715 






/ 






fc5716 






/ 






2717 






/ 




" A'\3iS\0 2.'-/i*. r-^EvlUuS ^^AGt. GVE«LAPS A LITTLE RIT, 


0720 






/ 




07 21 






/ 






07 22 






/ 






k5723 






/ 




TAPE Ou T I .\E S CO i\ T I \ JE D , 


e!724 


2005 




TMAI NE » 




/ K A I \ L M J R ,1. A I T 


K725 


2^06 


/3 3K 




CLA CL L CM L ^A 


/4 c* ol 52 = T AP r PR f S FT . 


2726 


2ii 07 


61 52 




61 d2 


/ s TO P A- Y T k A V T A P r H P r W A T T n.\, ^ 


0727 


201(5 


■/3 0 k',' 




ClA cll 




07 30 


2011 


16 05 




TaD I T^Al\E 




0731 


2012 


3214 




DC A . + 2 




07 32 


2tt 13 


45 64 








0733 


2014 










07 34 


2015 






T M A I \ 




0735 


2016 


0020 




216 


/^i? jHAi^ACTEH '^jAMEi 


0736 


201? 


72 40 




MO N£ 




0737 


2020 


1633 




TAD I TRLnKK 




0740 


2021 


4237 




JMS TTf?iC 




0741 


2022 


2023 




T TEG 1 




0742 






/ 






0743 






/ 






07 44 






f 






0745 






/ 






07 46 






/ 






0747 


2023 


2026 


T T EG 1 » 


TREN T3 




0750 


2024 


2031 




TERROT 




0751 


2025 


2026 




TRENT3 


/SKIP lOTATIOIv ( !NTrH;\IALl Y ^AMP AS APPrPTi 


0752 






/ 






0753 






/ 






0754 






/ 






0755 






/ 






0756 






/ 






0757 






/ 






07 60 






/ 






0761 


2026 


2634 


TRENT3 , 


IS^ I TKOUNT 


/IS This last record? 


0762 


2027 


5635 




JMP 1 TTRNT2 


/^jOPC go hack ami skip 


0763 


2030 


5636 




JMP I TRLAHT 
»J 1 1 > i 1 o i_ " n 1 


/ YEP . EXIT 


0764 






/ 






0765 






/ 






07 66 






/ 






0767 






/ 






0770 






/ 






07 71 


2031 


5632 


TEHHOT , 


ij . 1 r J 1 1 L 'N 1 




0772 






/ 






0773 






/ 






0774 






/ 






0775 






/ 






0776 






/ 






0777 






/ 






10 00 


2032 


1627 


TTRE NT * 


TREE\T 




1001 


20 33 


1720 


T8L0KK , 


TBLOCK 




1002 


2034 


1761 


TKQUMT , 


TCOUNT 




1003 


2035 


1646 


TTHNT2 , 


TRENT2 




1034 


2036 


1754 


T3LAHT f 


TBEXIT 




1005 






/ 






1006 






/ 






1007 






/ 






1010 






/ 






1011 






/ 







1012 






/ 






113 13 






/ 






1014 






/ 






10 lt> 






/ 






10 16 






/ 






113 17 






/ 






10 20 






/ 






10 21 






/ 






1022 






/ 






1023 


2037 


0000 


TTBC » 


0 


/ERROR MESSAGE DISPLAYER 


1024 


20 40 


6141 




L I NC 


/GET OVER TO LINC SlOE 


10 25 








LMODE 




1026 








TBRE:G= TM A I NEiil 77 7 


/ASSIGN A BETA REGISTER 


10 27 


00 41 


40 46 




STC TTEBLK 


/SAVE THE BLOCK NUMBER 


1030 


0042 


0065 




SET I TBHEG 


/SET THE B REG TO POI-NJT TO 


1031 


0043 


4131 




TOUT181777-1*4000 


/WHERE THE BLOCK NUMBER SHOULD GO. 


1032 






/ 






1033 


0044 


0006 


TTBLP # 


OJR 


/DON T CLOBBER 0 


1034 


0045 


1020 




LOA I 




10 35 


00 46 


00 00 


TTEBLK , 


0 


/GET THE ri»OCK NUMBER 


1036 


0047 


0243 




ROL 3 


/ROTATE TO GET UIGIT 


1037 


0050 


1040 




ST A 




1040 


0051 


0046 




TTEBLK 


/AND STORE BACK FOR NEXT TIME 


1041 


0052 


1560 




BCL I 




1042 


0053 


7770 




-7 




1043 


0054 


1620 




BSE I 




1044 


0055 


0060 




60 


/CONVERT TO TRIMMED ASCI I 


1045 


0056 


1365 




STH I TBREG 


/AND STORE AWAY. 


1046 


0057 


1520 




SRO I 




1047 


0060 


3567 




3567 


/ALL DONE WITH 4 DIGITS? 


1050 


0061 


6044 




JMP TTBLP 


/NOPE. DISPLAY MORE, 


1051 


0062 


0002 




POP 




1052 








PMOOE 


/GET BACK INTO 8 MODE 


1053 


2063 


7200 




CLA 




10 54 


2064 


1637 




TAD I TTBC 


/GET THE GO TO LIST 


1055 


2065 


3272 




DCA TTS2 


/AND SAVE IN SEARCH CALL 


1056 


2066 


4562 




DECODE 


/DISPLAY MESSAGE AND GET REPLY 


10 57 


20 6/ 


20 77 




TM Al NQ-2 




10 60 


20 70 


4573 




SEARCH 


/LOOK-UP REPLY 


10 61 


2071 


2074 




TTSl 




10 62 


20 72 


00 00 


TT b2 , 


0 


/CALLERS LIST, 


10 63 


2073 


52 66 




JMP .-5 


/NOT A LEGAL REPLY. 


1064 






/ 






10 65 






/ 






10 66 






/ 






10 67 


20 74 


0301 


TTSl » 


301 




1070 


20 75 


0322 




32 2 




1071 


2076 


4323 




4323 




1072 






/ 






1073 






/ 






1074 






/ 






1075 






/ 






1076 






/ 






1077 






/ 






1100 






/ 






1101 






/ 






1102 


2077 


0140 




LEFT+140 




1103 


2100 


0240 




TUP-100 


/LOCATED m TOP. LEFT OF SCREEN 


1104 


2101 


mm 


TMAIND. 


0 


/OVERLAYEU BY EXACT MESSGE 


1105 








*TMAINO+20 


/A 40 CHAR MESSAGE FROM CORRECT ERROR 


1106 


2121 


0601 








1106 


2122 


2440 








1106 


2123 


0214 









1106 21^4 1703 

1106 2l2t> 1340 

1106 2126 1625 

1106 2127 1!?02 

1106 2130 0522 

1106 2131 4040 



1106 TEXT "FAT BLOCK NUMBER 

1107 2132 0^tj0 TOUTl, K 

1110 2133 mm T0UT2, 

1111 TEXT " 
1112 

1113 2134 4340 

1114 2135 4340 
1114 2136 4301 
1114 2137 4055 
1114 2140 5555 
1114 2141 4001 
1114 2142 0303 
1114 2143 0520 
1114 2144 2440 
1114 2145 0123 
1114 2146 4011 

1114 A ACCEPT AS IS 



1115 2147 2343 

1115 2150 2240 

1115 2151 5555 

1115 2152 5540 

1115 2153 2422 

1115 2154 3140 



1115 2155 0107 

1115 2156 0111 

1115 R THY AGAIN 

1116 2157 1643 
1116 2160 2340 
1116 2161 5555 
1116 2162 5540 
1116 2163 2422 
1116 2164 3140 



1116 2165 2417 

1116 2166 4023 

1116 2167 1311 

1116 2170 2040 

1116 2171 2001 

1116 2172 2324 

1115 2173 4006 

1116 2174 0125 
1116 2175 1424 
1116 2176 3140 
1116 2177 0214 
1116 2200 1703 
1116 2201 1334 



1116 S T«Y TO SKIP PAST FAULTY BLOCK\" 

11 17 22(32 0602 

1117 2203 1417 
11 17 2204 0313 
1117 2205 4016 
1117 2206 2515 
1117 2207 0205 

1117 TMESSlf TEXT "FBLOCK NUMBER 

1120 2210 22 43 

1120 2211 0617 

1120 2212 2240 



1120 


^216 


2411 






2214 


li^ll 




ii2ia 


22 It? 


16i37 




1120 


2216 


4005 




112t3 


2217 


2222 




1120 


22 2^ 


1/22 




1120 








1121 


22 21 






1121 






n 


1122 






/ 


1123 






/ 


1124 






/ 


1125 






/ 


1126 









TINGING EWROK 



LJECT 



1 1 y 7 






/ 






11^0 












1131 






/ 






1132 






/ 






1133 






/ 






1134 






/ 






1135 






/ 




ISPL AY 


1136 






/ 






1137 






/ 






11413 






/ 






11 41 






/ 






1142 






/ 






1143 






/ 


<bI.^GLE LETTEPJX 


1144 






/ 






11 4i 






/ 


A^,Y PAHT MAY 


1146 






/ 






1147 






/ 


IT S SROKE^J OOWi^i 


1150 






/ 


THE 6 


CHArt ACTlk 


11 5l 






/ 


"7/" S 


TO F ILL 








/ "rsi£E". A\Y 


MISSING H 


1153 






/ 






1 1 54 






/ 






1 1 b 5 












11 56 








CLA CLL 


1157 


22 24 


1 A 5 0 
1 D c d; 




TAD I 


DDCOOE 


X J. Ot' 


'^'J oh 
cc <L > 


oc. MO 




OCA 


OODI S 


i 1 


2 22 6 


2 22 2 






DDCODE 


1 1 62 


22 2 7 


7 2 A^d 


UDaG IN . 


HO NE 




X X o o 




3124 




OCA 


FN AHE 


11 64 


22 31 


72 4^ 




MONE 




1165 


2232 


3125 




OCA 


FNAME+1 


1166 


22 33 






HONE 




116 7 


22 34 






DCA 


FiMAME + 2 


1 1 liA 
1 JL / tf 


22 35 


75/1!/ 




HONE 




1171 




312 7 




OCA 


FN A,ME + 3 


11 72 


22 37 


3120 




OCA 


FUM T 


1173 


22 4 0 


o i ^ i 




DCA 


FTYPE 


11 74 


22 41 


31 1 7 




DCA 


FSI2E 


1 X / 7 


22 42 


45 61 




LI NE 




1 1 

XX / 0 


£ t Ho 


{?, Oi 


DODI S. 


0 




1177 




13 7 3 




TAD 


DDGTEXT 


1 200 


5 "3 d S 

c c :? 


37 74 




DCA I 


DPSTART 


1 2 ii31 




/2 4 0 








1202 


2247 


3/75 




OCA I 


OPSw ITCH 


xc 


££ 710 


1 < 7 A 




TAO 


OS UE 


X C lw*t 


55 m 

cc 5X 


3141 




DCA 


COUNT 


1205 


2252 


4 7 71 




JNS I 


DPGETL 


1206 


2253 


2141 




Ib^f 


COU^^T 


1207 


2254 


5252 




jmp 


.-2 


1210 


2255 


7200 




CLA 




1211 


2256 


47 71 




JHS I 


DPGETL 


1212 


2257 


1047 




Tad 


L7 77 7 


1213 


22612 


7510 




SPA 




1214 


2261 


5227 




JMP 


00 AG IN 


1215 


2262 


1050 




TAD 


M3 2 


1216 


22 63 


75 00 




5^SA 




1217 


2264 


5227 




J^.P 


DO AG I \ 


1222 


2265 


1051 




TAD 


L33i 


1221 


2266 


3121 




jCA 


FTYPE 


1222 


2267 


4^34 




JM S 


OGETNUM 


1223 


2270 


1065 




TAD 


TEMP 


1224 


2271 


3120 




DCA 


FU.vl T 


12 25 


2272 


1066 




TAO 


TEMPI 



LOCATED AfxUU^.l: 22<,. 



-EVIOUS PAGE OVL'^LAPS A lITTlE SIT. 



.viLL DEC ODE A STKI\G AS FOLLOwS: 

OCTAL vuMBER>;<6 CHARACTER NJ Ai^ E > , < OC T A L .\iUMeER> 

MISSING ^ITH THE tXCEPTIOlxi OF THE FIRST LETTER. 

AS FOLLOWS. The FIRST LETTER GOES hNTO "FTYPE", 
NA^E INTO "FNA^E" FOlL^lD 3Y 
IT OUT, A=\D THE LAST NUMBER IMTO 

UMBE«S GO TO 0, A !^ISSI.\G NAME GOES TO 7 77 77 77 77 77 77 



THE NUMBER INTO "FUMIT 



/GETS AND DECODES A LINE FROM THE TTY WHILE DISPLAYIMG SOmETHH 
/CLEAR AC. 

/GET LOCATION OF DISPLAY, 
/AND PLACE HERE. 
/SKIP PAST CALLING ARG. 
/RESTART OF DISPLAY, 
/SET NAME TO 7777 



/NAME X^OW CONTAINS A 7 77 7 
/£AP OUT UNIT NUMBER. 
/2AP OUT CHAf^. 
/AND SIi?E. 

/GET A L INE FROM THE TTY . 

/rtHlLE DISPLAYING THE CALLERS CRAP. 

/POINTER TO dUFFER-1 

/tsE LL USE "PGETL" TO GET 

/THE CHARS SO I M SETTING IT UP NOW. 

/SET SWITCH TO LEFT CHAR. 

/NUMdER OF CHARS ALREADY IN BUFFER, 

/PLACE IN TEMP COUNT. 

/GO GET A CHAR, 

/BOF UP CONUT. IS THTA ALL? 

/NO. GET NEXT. 

/YES. ClLAR AC OF CHAR. 

/GET NEXT CHAR, 

/TEST TO SEE IF A LETTER 

/IS IT <"A" 

/YES . NOT A LET. TRY AGA IN . 
/IS IT TOO BIG??? 

/YEP. TOO filG. TRY AGAIN. 
/OK. HAKE INTO A GOOD LETTER. 
/AND STASH Ai^AY. 
/GET A NUMBER NEXT. 
/GET THE VALUE. 
/AND STASh ArtAY. 

/GET CHARACTER ^HICH ^vAS NON NUM. 



12'^b 


2273 


/ 450 




SNA 






/IS IT TERMINATING 0 tJ 0 .'5 


1227 


22 74 


5622 




JMP 


I 


ODCOOE 


/YES. EXIT, 


1230 


2275 


1045 




T AO 




M73 


/IS IT A " f " 


1231 


2 2 76 


76 40 




Si A 


CL A 






1232 


2277 


!>2 27 




JMP 




DO AG I N 


/NOT ANYONE. BAD CHAR. TRY AGAIN, 


1233 


2300 


13 72 




TAD 




OFNAME 


/POINTER TO "FNAME" 


1234 


2301 


30 70 




OCA 




TE MP3 


/AND STORE AwAY 


12 3S 


2302 


1022 




TA 0 




H4 


/4 »2 CHARS PE'^ rtORO=8 


1236 


2303 


3141 




DCA 




COUN T 




1237 


2304 


43 60 


DLOOP» 


JMS 




DOCHEK 


/GET A CHAR AND CHECK IT. 


1240 


2305 


7006 




RTL 








1241 


2306 


70 06 




RTL 








1242 


2307 


7006 




HTL 






/ROTATE IK'TQ LEFT SPOT. 


12 43 


2310 


00 53 




AND 




L7 70 0 


/2 AP OUT R IGHT 


12 44 


2311 


1024 




TAD 




L77 


/NAME TERMINATES WITH A 77 


124^5 


2312 


34 70 




OCA 


I 


TE MP 3 


/PLACE IT AWAY. 


12 46 


2313 


43 60 




JMS 




00 CH EK 


/GET ANOTHER 


124 7 


2 314 


002 4 




AND 




L 7 7 


/ J Uo i KlbHl o dilj 


12 1?0 


2315 


14 70 




TAD 


I 


TE MP3 


/GET BACK OLD 1 


12 51 


23 16 


10 46 




TAD 




M7 7 


/CHOP OFF L77 ^£ ADDED BEFORE, 


12 52 


2317 


34 70 




OCA 


I 


TE MP 3 


/AND PLACE BACK IN THING. 


12 53 


2320 






IS2 




rr MP 

1 L ri r o 


/ano no N<AMr oniKiTco 
fOVr U" INAnt rUiNILK, 


12 54 


2321 


2141 




ISH 




COUNT 


/4 WORub r ILLtu UP YET? 


12 55 


23 22 






JMP 




OL 00 P 


/NO. 


12 56 


c 0 fc o 


*tO 0)0 




JMS 




UU Ln Lf\ 




125 7 


2 324 


K V '3 7 




JMP 




UU Ab I N 


/NAnc !UU LUUnib. KLolAKI/ 


















61 


232 5 


4334 


DCOMMA, 


JMS 




n r. r T M 1 1 M 


/uVMt.UA't. 'VUn Ar lt.»t bU'^~A, 


1262 


2326 


1 i?t A c; 
X k] 0 7 




TAD 




TEMP 


/bt I V AL uL 




23 27 


Oil/ 




OCA 






/AI\U biAon AWA' 


12 64 


23 30 


10 66 




TAD 




T r MP 1 


/rrT rrPMiKiATTNiP ruAt 

/wC-l IC.r<rlil>JAIllNb LMAn. 


1 ^ 

1 C 07 


^OOl 






S2A 


CL A 






1266 


2332 


522 7 




JMP 




DO AG IN 


/NO, RtTKY AGAIN. 


1267 


2333 


56 22 




JMP 


I 


ri n r> c 

DDCOOE 


/YtP. ALL uONE . EXIT: 


12 70 






/ 










12 71 


23 34 




DGETNUM, 0 






/FORMS A NUMBER 


12 72 




3065 




OCA 




TEMP 


/rtHO bUM 




C<J oO 


0.7 71 




JMS 


I 


OP GE TL 


/btl A uHAK» 


12 74 


23 37 


OW 0 0 




DCA 




TE MP 1 


/ctacu it AuIAV 
/o ( A on If A W AT . 


12 75 


23 40 


10 66 




TAD 




TEMPI 


/b t 1 I ! D A LK 


12 76 


23 41 


1043 




TAO 




M60 


/lb IT < 60 


1277 


2342 


7 7 n a 
/ fltO 




SPA 


CL A 






1300 




3 / >5*l 




JMP 


I 


nr* r T Ml 1 M 

DGt 1 NUn 


/ VO0 , HE. » URN * 


1301 


2 34 4 


10 66 




TAD 




TEMPI 


y<^f*T A^^Atik. 

/GET AGAIN 


1302 


23 45 


10 44 




TAD 




M7 0 


/IS IT TOOOOO BBBI II GGGGr? r f f ? 


1303 


2346 


7/00 




SMA 


CL A 






l304 








JMP 


1 


f 1 r IT T i\l 1 1 M 


/ T Lr , K L 1 U KIM 


130b 


2350 


1065 




TAD 




TEMP 


/GET OLD TOTAL 


1306 


2351 


7104 




CLL 


RAL 






1307 


2352 


7104 




CLL 


HAL 






1310 


2353 


7104 




CLL 


RAL 




/MULTIPLY BY 8 


1311 


2354 


1066 




TAO 




TEMPI 


/ADD IN TEMPI 


1312 


23ib 


1043 




TAO 




M60 


/GET RIO OF ASCI I BITS, 


1313 


2356 


3065 




OCA 




TEMP 


/AND STASH AWAY. 


1314 


2357 


5336 




JMP 




DGETNUM*2 


/GO GET NEXT CHAR, 


1315 






/ 










1316 


2360 


0000 


DOCHEK , 


0 






/CHECKS FOR 0 OR , 


1317 


2361 


4771 




JMS 


I 


DPGETL 




1320 


2362 


74 50 




SNA 






/IS GOTTEN CHAR 0? 


1321 


2363 


5622 




JMP 


I 


DDCOOE 


/YES. EX I T 


1322 


2364 


1042 




TAO 




M54 


/IS IT A , 


1323 


2365 


7450 




SNA 








1324 


2366 


5325 




JMP 




DCOMMA 


/YES, END or NAME. 



13;;5 

1326 
1327 
1330 
1331 
1332 
1333 
1334 
133t? 
1336 
1337 
1340 
13 41 
1342 
1343 
1344 
1343 
1346 
1347 



2367 
23 70 



2371 
2372 
23 73 
2374 
237t> 
23 76 



1041 
57 60 



0737 
0124 
1121 
0734 
0735 
77 72 



TAD L54 
JMP I DOCHEK 

/ 
/ 
/ 

DPGETLt DOCOM 

DFNAME, FNAME 

DDGTEXT, GTEX T+1 

DPSTART, PSTART 

OPSWITCH.PSWITCH 

DSUE, -LBNUM 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

EJECT 



/CORRECT FOR SUBTRACTION. 
/RETURN IwTH CHAR ! Nj AC. 



/POINTER TO UNPACK ROUTINE CriAK GETTER. 

/POINTER TO FNAME 

/POINTER TO STAHT OF MESSaGE-1 

/POINTER TO GETCHAR POINTED 

/POINTER TO SWITCH (LEFT OR RIGHT CHAR) 

/NUM8ER OF SYSTEM CHARS ALREADY IN BUFFER. 



1350 








*2 40i; 






1351 






/ 








1352 






/ 








1353 






/ 








1354 






/ 


GENRtAL 


CALL : 




1355 






/ 








1356 






/ 








1357 






/ 




niHECT 




1360 






/ 








1361 






/ 








13 62 






/ 


NO ARGUEMENTS. 




1363 






/ 






1364 






/ 








1365 






/ 








1366 






/ 








1367 






/ 








1370 






/ 








1371 


24t30 


ii0 00 


UYRECT » 


0 




/MAIN ENTRY 


1372 


24 01 


7300 




CLA CLL 




/CLEAR AC TO BE SURE. 


13/3 


2402 


1110 




TAP 


INDEX 


/GET START OF INDEX 


1374 


2403 


3215 




OCA 


DINOEX 


/AND PLACE AWAY HEt^E 


1375 


2404 


1111 




Tad 


1LE\ 


/GET LENGTH OF I NDEX 


13 76 


2405 


3214 




DC A 


OtEN 


/AND PLACE AwAY, 


1377 


2406 


4566 




PUSH 




/SAVE F3L0CK. I/Q MIGHT DESTROY IT. 


1400 


2407 


1120 




Tad 


FUM T 


/GET OES IREO UNIT. 


1401 


2410 


3212 




OCA 


, + 2 


/AND FINISH SETTING UP READ. 


1402 


2411 


4571 




READ 




/READ !-N I NOEX , 


14i(33 


2412 


00kJ0 




0 




/UNI T 


1404 


2413 


6400 


OPOI NT , 


8UFFEH 




/INTO START OF BUFFER AREA, 


1405 


2414 


0000 


OLEN, 


0 




/LENGTH OF INDEX, 


14 06 


2415 


0000 


OINOEX, 


0 




/STARTING Block of index. 


1407 


2416 


4565 




POP 




/RESTORE F8L0CK 


1410 


2417 


4/63 




JMS I 


Q D N A M E 


/LOOKUP NAME . 


1411 


2420 


5764 




JMp I 


ODFOUNO 


/NAME EXISTS. GO ELSE^^HEHE. 


1412 


2421 


4765 




JMS I 


OY GL EN 




1413 


24 22 


2141 




iSi 


COUNT 


/ROP RY 1 Tn DFF^FT FDR TTRST ^^JTPY 


1414 


2423 


1213 




TAO 


OPOINT 


/SET UP AUTUl 


1415 


2424 


3010 




OCA 


AUTQl 


/TO POO I NT TO DIRECTORY. 


1416 


24 25 


47 66 


DY LU Of' 1 


JMS I 


OYPAST 


/G 0 TO EX T EN TN Y . 


1417 


2426 


14 10 




TAD 1 


AUTOl 


/GET FIRST LFTTER"? OF MAMF 


1420 


2427 


1057 




TAD 


M5757 


/IS IT r r 


14 21 


24 30 


7650 




SNA CLA 






1422 


24 31 


5235 




JMP 


DYGOOO 


/YFP Pi APF IT HFRF 


1423 


24 32 


2141 






COUNT 


/uci rnnn. aniY mort th rwAfK'J 


1424 


2433 


5225 




JMP 


OYLOOP 


/YTP Cn WATk' 


1425 


24 34 


4567 




NO 




/ iv V r\ ij w - -' r w n )^ t- iN H n u 1 


1426 


24 35 


1010 


DYGOOO, 


TAO 


AUTOl 


/SET UP MOVE TO DIRECOTRY OF NAME 


1427 


2436 


3241 




DCA 


.+3 


/NAME PLACE IN DIRECTORY. 


143i3 


2437 


4564 




MOVE 




/MOVE NEW NAME INTO DIRECTORY. 


1431 


2440 


0124 




FNAME 






1432 


2441 


0000 




0 






1433 


2442 


0004 




4 






1434 


2443 


7307 




PFOUR 




/NOW FILL IN SPACES wITH 5757S 


1435 


2444 


1010 




TAO 


AUTOl 


/POINTER TO SOURCE BLOCKS 


14 36 


2445 


3250 




DCA 


.♦3 




1437 


2446 


4564 




MOVE 




/NOW MOVE IN 5757 S 


1440 


2447 


2570 




0L5757 






1441 


2450 


00 00 




0 






1442 


2451 


00 04 




4 






1443 


2452 


4767 




JMS I 


OYdACK 


/POINT TO START OF NAME 


1444 






/ 








1445 






/ 








1446 


2453 


1123 


Of^EENT. 


TAD 


FWHAT 


/OFOUND ALSO COMES HERE. IS IT INPUT OR OUTPUT??? 




14 47 


24 54 


10 4 7 




TAD 


i. / 7/7 


1 4 t30 


Z 4 55 






b\A 




1 4 b 1 




4 5 6 7 




\'J 




1 4 i?2 


24 5 7 


10 4 7 




TAD 


L 7 / 7 7 


1 ^ •» 
A** JO 


24 6i(5 


74 4^^ 




A 






24 61 


/ 4 02 




SYSt kR 






■p A A 'J 


1121 




TAD 


F T VP j;^ 


14 56 


24 63 






TAD 


L 7 7 7 7 


14 5/ 


2464 


74 50 




SNA 




14 6)3 


2465 


5272 




J-^P 




14 61 


2466 


10 47 




TaO 


L 7 7 7 7 


14 62 


24 67 


7 4 4 0 




S£A 




1 4 6 i 


24 72 






SYSEKR 




14 64 


24 71 


73 05 




PT wQ 




1463 


2472 


1055 


DSaU«CF., TAD 


L 4 


14 66 


24 73 


1010 




T A 0 


A U T 0 1 


14 6 7 








OCA 


AU T02 


14 70 






/ 






14 71 






/ 






14 72 






/ 






1473 






/ 




R 0 J T 1 N L 


14 74 






/ 






14 75 






/ 






14 76 






/ 






14 7 7 






/ 






1 5 00 


24 75 


1114 


DL 00 K 1 


Tad 


LL UW tK 


15 01 


24 76 


30 75 




DC A 


OF I R ST 


15 02 


2 4 77 


10 75 


DLOOPl , 


Tad 


OF I RS T 


1503 


250i<3 


1117 




TAD 


rs 1 E 


1504 


25 01 


7141 




CLL CHA 


I A C 


1505 


2502 


1114 




T aD 


cl 0 w er 


15 06 


25 03 


7 6 6 0 




A SN L 


CL A 


1507 


2504 


5316 




JMP 


ON 01 


15 iiy 


2505 


4 7 61 




JMS I 


DO CH EC K 




25 06 


-'O 10 




JMP 


ON 01 


1512 


25 07 


10 75 




TAO 


OF I RST 


1513 




1117 
i i 1 / 




TAO 


FS 12 £ 


i J i *^ 


2511 


70 41 




CIA 




1515 


2512 


1110 




TAG 


LNDE X 


1516 


2513 


/ 10 IS X 




1 AC 




1517 


25 14 


;i> / 




OCA 


00 I S 1 


15 20 


2515 


53 31 




JMP 


0D02 


15 21 


25 16 


10 75 


DNOl , 


TAD 


OF I RST 




^ i / 


70 41 




CIA 




15 23 


25 20 


1112 




TAD 


ELOwER 


1524 


25 21 


7 650 




SNA CLA 




15 25 


25 22 


53 27 




JMP 




1526 


2523 


7240 




MONE 




1527 


2524 


1075 




TAD 


OF IKST 


1530 


2525 


3075 




DCA 


DF IRST 


1531 


2526 


5277 




JMP 


oloopi 


1532 






/ 






1533 


2527 


7240 


D8AD1, 


MONE 




1534 


2530 


3357 




DCA 


DDISl 


1535 






/ 






1536 


2531 


7300 


DD02 , 


CLA CLL 




1537 


25 32 


1115 




TAO 


CUPPER 


1540 


2533 


3075 




OCA 


DFIRST 


1541 






/ 






1542 


2534 


2075 


DL00P2 , 


ISi 


OFIRST 


1543 


2535 


7410 




SKP 




1544 


25 36 


5354 




JMP 


D8AD2 


15 45 


25 37 


1113 




TAD 


EUPPER 



/i = 1 \PJT ,k = jui Put 
/IS it I. .Put 

/YlS. \J :v-AMt. u I SPLAY "UO" 
/IS IT "2" 

/NO, I .Tt<-(\AL ^IP Er^ROR, FOR OLBUGGI^JG OMLY. 
/SOUni>:=i, dl \ARr=2 
/IS IT 4 1 

/v£S. SCURCl 

/IS IT2. iSlMAriY) 

/=\£I ThPR , SYSTE-^ ERROR 
/5I^v!ARY. BOP PAST SOURCE. 
/GO PAST NAME. 

/SET alJT02 to Block number pointer. 



ri^D VACANT .^PACE I^ THE DIRECTORY 



/GET LOWER LIMIT OF SYSTEM. 

/THAIS WHERE WE LL STaRT CHECKING. 

/GET START OF 3L0CKS ^s'E RE NOW CHECKING 

/FIND OUT HOH BIG ^E t^ANT THEM. 

/13 BIT NEGATE. EXCEPT FOR LINK. 

/DO '^E GO OVER INTO SYSTEM? 

/NOW REASON FOR NO CHL ABOVE. 

/YEP. GO OOh.N AND TRY NEXT. 

/CHECK TO SEE IF ANY OF THESE BLOCKS ARE OCCUPIED. 
/YEP. THEY ARE. GO OO^JN AND TRY NEXT. 
/FOUNJ ROOM. 

/GET DISTANCE FROM INDEX. 



/I MORE FOR ADDITION OVERSHOOT. 
/C I STANCE FROM I ND£X . 
/NOW CHECK OTHER SIDE. 
/BLOCKS WON T FIT. 

/CAN WE TRY FARTHER FROM SYSTEM, 

/ADO LOwlR LIMIT OF DEVICE. 

/ARE wE AT BOTTOM NOW? 

/YEP. NO ROOM HERE IN THIS SIDE. 

/ROOM LEFT. BOP DOWN DPIRST AND TRY AGAIN. 

/A LITTLl FARThER FROM SYSTEM THIS TIME. 
/GO BACK AND TRY AGA IN , 

/NO ROOM ON BOTTOM . SET DISTANCE TO MAX. 



/NOW Ew LL CHECK TO UPPER TO SEE IF IT FITS. 
/GET UPPER PART OF SYSTEM. 
/FOR FIRST ISi CORRECTION. 

/^E LL TRY NEXT BLOCK. 

/WOW. QUITE A DEVICE HE S GOT THERE. 4 RF08 S IT MUST BE. 

/BUT STILL NO ROOM ON TOP. 

/GET THE UPPER LIMIT OF THE DEVICE. 



lt>46 


25 40 


7160 




CLL CML 


CM A 


15 47 


25 41 


10 75 




TAD 


OF IRST 


lb 50 


25 42 


1117 




TAD 


FS IZE 


1551 


2543 


7660 




S2A SNL 


CLA 


1552 


2544 


5354 




JMP 


0BA02 


1553 


2545 


47 61 




JMS I 


OD CHECK 


15 54 


2546 


5334 




JMP 


DL00P2 


1555 


2547 


1110 




TAD 


INDEX 


1556 


2550 


7041 




CI A 




1557 


2551 


1075 




TAD 


DF IRST 


15 60 


2552 


3360 




OCA 


DO IS2 


1561 


2553 


57 62 




JMP I 


DDFIG 


1562 






/ 






1563 






/ 






1564 


2554 


7240 


DBAD2. 


MONE 




1565 


2555 


3360 




OCA 


DDIS2 


15 66 


2556 


57 62 




JMP I 


ODFI G 


1567 






/ 






15 70 






/ 






1571 


2557 


0000 


DDISl* 


0 




1572 


25 60 


00 00 


00IS2* 


0 




1573 


2561 


2653 


DDCHECK) 


. OCHECK 




1574 


2562 


2600 


ODFI G, 


OF IG 




1575 


2563 


3064 


DONAME » 


ONAME 




1576 


2564 


3000 


DOFOUNOi 


► DFOUND 




15 77 


25 65 


27 06 


OY GLEN 1 


DGLEN 




1600 


2566 


2717 


DYPAST. 


OP AST 




1601 


2567 


2725 


DYBACKi 


DBACK 




1602 


2570 


5757 


DL5757, 


5757 




1603 


2571 


5757 




5757 




1604 


2572 


5757 




5757 




1605 


2573 


5757 




5757 




1606 






/ 






1607 






/ 






1610 






/ 






1611 






/ 






1612 






/ 






1613 






/ 






1614 






/ 






1615 






/ 






1616 






/ 






1617 








EJECT 





/13 BIT COMP , -1 

/WILL WE OVERFLOW DEVICE LIMITS, 

/WHEN WE ADD I N LENGTH . 

/NO ROOM LEFT ON TOP END. 
/CHECK TO SEE IF BLOCKS ARE FREE. 
/NOT FREE. GO BACK AND TRY AGAIN, 
/FREE. GET DISTANCE. 



/AND SAVE IT. 

/GO CALCULATE WHICHONE IS CLOSER CLOWER HALF OR UPPER HALF] 



/NO ROOM ON UPPER HALF . 

/SET DISTANCE TO A MAXIMUM. 

/GO FIGURE OUT WHICH ONE IS CLOSER, 



/LOWER DEVICE DISTANCE 

/UPPER DEVICE DISTANCE FROM DESIRED FILE. 
/POINTER 



1620 








»2600 




1621 






/ 








1622 






/ 








162i 






/ 








1624 






/ 








1625 






/ 








1626 






/ 








1627 






/ 








1630 






/ 








1631 


2600 


1765 


or iG. 


TAD 


i 


nnD I Si 


1632 


2601 


7001 




lAC 




1633 


2602 


7650 




SNA 


CL A 




1634 


2603 


52 45 




JMP 




01 Nu G 


1635 


2604 


1766 




TAD 


I 


nn n T 


1636 


2605 


7001 




lAC 






1637 


2606 


7650 




SNA 


CL A 




1640 


2607 


52 15 




JMP 




n 1 n n Q c 
Ul UL u o t. 


1641 


2610 


1765 




TAD 


I 


UU U 1 o 1 


1642 


2611 


7161 




CLL 


CML 


CMA lAC 


1643 


2612 


1766 




TAD 


I 


DDDIS2 


1644 


2613 


7630 




S^L 


CLA 


1645 


26 14 


5251 




JMP 




02 CLOSE 


16 46 






/ 








1647 


2615 


/240 


OlCLOSt # MONE 






1650 


2616 


1117 




TAD 






1651 


2617 


1765 




TAD 


I 


DDOISl 


16 52 


26 2!(3 


70 41 




CI A 






1653 


2621 


1 1 1 13 




TAD 




INDEX 


1654 


26 22 


3122 


DCOM , 


DCA 




F8NUM 


1655 


2623 


1122 




TAD 




EBNUM 


1656 


2624 


3411 




DCA 


I 


AUT02 


16 57 


2625 


1117 




TAD 




rsiEE 


1660 


262(? 


3411 




DCA 


I 


AUTO 2 


1661 


2627 


4564 




MOVE 






1662 


2630 


24 1 2 




DPOI NT-1 


1663 


2631 


2635 




DWRI TE+1 


1664 


26 32 


00 04 




4 






16 65 


26 33 


4 56 6 




PUSH 










4 5 72 


OWRl T£, 


WR ITE 




1667 




nana 










iO f\0 


26 36 


00 00 




0 






16 71 


26 3 7 


Cfl Ot t5f 




0 






16 72 


26 40 


MM CI (71 




0 






16 73 


2641 


4 >S A c: 
M i» 0 3 




POP 






16 74 


26 42 


17 67 


DDEXIT. 


TAD 


I 


DDYRECT 


1675 


2643 


3065 




OCA 




TEMP 


1676 


2644 


5465 




JMP 


I 


TEMP 


16 7 7 






/ 








i?m 


2645 


1/66 


OINOG. 


TAD 


I 


D0DIS2 


1701 


2646 


7001 




lAC 




1702 


2647 


76 50 




SNA ( 


:l A 




1703 


26i?0 


4567 




NO 






1/04 


2651 


1^75 


D2CL0SE, TAD 




DP IRST 


1705 


2652 


5222 




JMP 




DCOM 


1706 






/ 






1707 






/ 








1710 






/ 








1711 






/ 








1/12 


2653 


0000 


OCHECK, 


0 






1713 


2654 


7240 




MONE 






1714 


2655 


1/70 




TAD ] 


! 


OOPOINT 


1715 


2656 


^010 




DCA 




AUTOl 


1716 


2657 


4771 




JMS ] 


! 


DO GLEN 



MORE OF THE DHECTORY LOOKUP ROUTINES. 



/IS LOWER HALF OK?? 

/NO ROOM IN LOWER HALF. 
/HOW ABOUT THE UPPER HALF? 



/LOWER HALF IS CLOSER BECAUSE NO UPPER HALF. 

/BOTH THERE. GET LOWER DISTANCE. 

/13 BIT NEGATE 

/GET UPPER DISTANCE. 

/WHICH IS CLOSER. 

/UPPER IS CLOSER. 

/-I FOR ADDITION ERROR 
/RECREATE ORIGINAL BLOCK NUMBER 



/WE VE GOT THE ORGINAL BLOCK NUMBER NOW, 
/TELL CALLING PROGRAM ABOUT IT. 
/NOW PLACE IT IN DIRECTORY. 

/ALSO THE SI2E IN THE DIKECOTRY. 

/NOW SET UP THE WRITING OF ThE DIRECTORY, 



/PUSH DOWN F SLOCK 

/WRITE DIRECTORY, WITH MOVED IN aRGUEMENTS, 



/POP UP FBLOCK 
/GET CALLING ADDRESS 
/STORE IT 
/EXIT TO USER. 

/CHECK IF ROOM ON TOP HALF, 

/ROOM? 

/NO ROOM ON DEVICE FOR FILE. 
/GET THE LAST BLOCK CHECKED. 
/AND THATS IT. PLACE IN DIRECTORY. 



/CHECKS TO SEE IF BLOCKS OCCUPIED BY DFIRSR ARE FREE 

/SET AUTOl TO POINT TO START OF DIRECTORY 
/IN CORE, 

/GET lEN of DIRECTORY 



17 17 


26 60 


14 10 


OL 00P3 1 


TaD 


I 


AU TO 1 


/ \j t. f ri^oi iNjKU jr )\ ?JAnt. Ivi Int. Uir(LC'U"Y« 


17i^M 


26 61 


10 57 




TAD 




M5 75 7 




17 21 


2662 


76 50 




b \ A 


cl a 






1722 


2663 


5301 




P 




U D w i> r\ 


/IVU* J<\ir i!« 


l/2<5 


2664 


2010 




I b zf 




AU TO 1 




1724 


2665 


2010 




I S 2 




AU TO 1 




17 25 


26 66 


2010 




I S ^ 




AU T 0 1 


/bfNir' rAi>l nhb' Jr iMAnLt 


17 26 


26 67 


2010 




1 C3 c 




AU T 0 1 


/AND AlSO starting BLOCK OF SOURCE 


1727 


2670 


1410 




Tin 


T 

1 


AUTO 1 


/ T t T U C L' A \; V Cl'^ 1 1 □ r* C" / 1 C \f T !_l •<» on C T T T \J r- * 

/lo iHL"L A'^T buUKLLtLE'>fo!n-HUbl!lVEJ 


17 30 


26 71 


77 1^ 




bP A 


r\ A 

UL A 






17 31 


26 72 


52 74 




J r. 1- 




D N 0 b 




17 32 


26 73 


47 72 




JH b 


] 


T w r R r 

* n L. f* c 




1/33 


2&74 


20 10 


DNOb , 


I bH 




AU T 01 


/^j^jp Past BINARY 9L0CK 


1734 


26 75 


1410 




T A 0 


I 


AU TO 1 




1 /3i? 


2676 


7/10 




SP A 


CL A 






17 36 


2677 


53 01 




jS< p 




D B L A N K 




17 37 


27 00 


47 72 




JM S 


1 






17 40 






/ 










1/41 


27 01 


4 7 73 


OBLA NK » 


JM S 


1 


00 P A ST 




1742 


2702 


2141 




I S2 




COUNT 


/ At\f WF AIL ,)ni\F W I th Thf DTRmnsY? 


1743 


2703 


5260 




JMP 




DL 00P3 




1744 


27 04 


2253 




ISi 




OCHECK 


/YES. SKIP PAST MFXT CALS I NG c;TATFMFNT A NH FyrT 


17 45 


27 05 


56 53 




JMP 


I 


OCHECK 


/G0008YE. AND GOOD LUCK, 


1746 






/ 










1747 






/ 










17 50 






/ 










1751 






/ 










17 52 






/ 










1753 


2706 


0000 


OGLE N 1 


0 








1754 


2 7 07 


1111 




TAD 




ILEN 


/GET INDEX LEMGTh, 


1755 


2710 


7006 




RTL 








1756 


2711 


7006 




HTL 








1757 


2712 


70 04 




PAL 






/MULTIPLY BY "^2 (7? FWTHTFS PTR Rt DTK 


1760 


2713 


0056 




AND 




l7 740 


/CHOP AH AY CRAP, 


17 61 


2714 


70 41 




CI A 








17 62 


2715 


3141 




QC A 




CO UN T 




17 63 


27 lb 


5/06 




JM P 


I 


DG LE N 


/RFTllRM Tn rAl I FR 


17 64 






/ 










1765 


2717 


0000 


OP AS T» 


0 






/ROUTINE SETS AUTOl TO POINT TO NEXT NAME IN DIRECTORY. 


1766 


27 20 


10 10 




TAO 




AU ^ 0 1 


17 67 


2721 


0021 




AND 




L7 77 0 


/t nf^iPAi P pr R A T I nM Auim nR 7 


1770 


2722 


1060 




TAD 




L7 




1771 


2723 


3010 




OCA 




AUTOl 


/ AND PUT h AfK . 


17 72 


2724 


5717 




JMP 


I 


DP AST 




17 73 






/ 










1774 


2725 


00 00 


OB AC K » 


0 








17 75 


2726 


4317 




JMS 




DPAST 


/MOVE TO END OF THIS NAME 


1776 


2727 


1010 




TAD 




AUTOl 




1777 


2 7 30 


1021 




TAD 




M10 




2000 


2731 


3010 




OCA 




AUTOl 


/A.xD OOP DO^N dY 10 (1 DIRECTORY ENTRY) 


2»01 


2732 


5725 




JMP 


1 


DBACK 




2002 






/ 










20 03 






/ 










2004 






/ 










2005 


2733 


0000 


DTHERE , 


0 






/CHECKS JUST CML DIRECTORY ENTRY FOR BEING WITHIN THE SPECIFIED 


2006 


2734 


72 40 




MONE 






2007 


27 35 


1010 




TAD 




AUTOl 


/BOP BACK THE AUTO REG. 


2010 


2736 


3070 




OCA 




TEMP3 


/AND PLACE IT AlvAY 


2011 


2737 


1470 




TAD 


I 


TEMP 3 


/RETRIEVE STARTING BLOCK NUMBER 


2012 


2740 


7161 




CLL 


CML 


CMA lAC 


/13 BIT NEGATE. 


2013 


2/41 


1075 




TAD 




DFIHST 


/ADD IN DESIRED STARTING BLOCK, 


2014 


2742 


7450 




SMA 






2015 


2743 


5653 




JMP 


I 


DCHECK 


/SAME. BLOCK IS TAKEN. EXIT. 



2016 


27 4 4 


1 t'cw 




S L C L A 




/A^t. ^fu Past jFirji^T, 


<d0 1 7 


2 7^5 


53 55 




jM P 


OF 3 I Gn 


/ \ :J . 'J r 1 H b t lb b 1 b v>L W , 


2 1^ 2 0 








Tad 1 


J ^ V(P j 


/w CO iriv: <Lt tr .'T IT 
/^f. LL'J SLt it- .'-t i^Jbo ill 


20 21 




7 1 Ay* 




Cl L CM L 






2id 22 


2 50 


10 75 




T A u 


DF I K b i 


/Qutb Jr I ^ b 1 +r :3i cE i \G N J Ao H u:^j uUH i tf^ 1 t Ok ' . 


20 23 


2 7 51 


1117 




Tad 


F S I 2 E 




22 2 4 


27 5 2 


7 6 20 




iN L Cl A 




/ )') ■> '> 


20 2^> 


27 53 


56 53 




jM P I 


OC Hl CK 




20 26 


27 54 


57 33 




jM P I 


DT riE R£ 


/ I T F 1 T b , 


22'27 






/ 








20 30 


2 7 P 5 


1^70 


OF 8 1 GR » 


T A U I 


T 

T E P 3 




20 31 


2 7 56 


20 70 




I 5 ^ 


TE "^P 3 




20 32 


21bl 


14 70 




TAD I 


TE 3 


/ADO OU^ LENGTm IIS! 


20 33 


2 7 60 


7141 




CLL CM A 


I AC 




20 34 


2 7 b 1 


10 75 




TA 0 


DF I n ST 


yr>rt iC n>fr*i3C"i t-. ,Tr> ."^r''tiicT"5'S'> 
'DO JvE'^rLUrt ii'^TU jriKbi??? 


20 3b> 


27 62 


/6 60 




S^A SNL 


Cl a 




20 36 


27 63 


5653 




JH P I 


OCHE CK 


/» t CE H T A I Nl T DJ , 


20 3 7 


27 64 


57 33 




P I 


OThEHE 


/ NurE» WE "L CLEAR, HLTUKig !0 CHLCK AGAIIv, 


20 4 0 






/ 








20 41 






/ 








20 42 






/ 








204 3 


27 65 


25 5 7 


n n n 1 ^ 1 . 

U U U 1 O 1 > 


0 D I S 1 




/PtMNiTTK in iOwFR DT^TANPr FROM tTvJ^TFM 


2044 


2766 


2560 


DDOl S2 . 


0DIS2 




/POINTER TO UPPtR DISTANCE FROM SYSTEM 


2045 


2767 


2400 


DDYRECT, 


. DYRECT 




/POINTER TO ENTRY 


2046 


27 70 


24 13 


DDPO INT, 


• OPOI NT 




/POINTER TO BUFFERS 


2047 


27/1 


2706 




DGLEN 




/POINTER TO GET NUMBER OF DIRECTORY ENTRIES ROUTINE. 


2050 


27 72 


2733 


OOTHERE. 


OTHtRt 




/POINTER TO BLOCK CHECKER 




2773 


2717 


DOPAST, 


OPAST 




/POINTER TO ROUTINE TO GO TO NEXT ENTRY. 


2052 






/ 








2053 






/ 








2054 






/ 








2055 






/ 








2056 






/ 








2057 






/ 








2060 






/ 








2061 






/ 








2062 






/ 








211963 








EJECT 







1 



i 



20 64 








#3 00 0 






2065 






/ 








2tfl 66 






/ 






SOME MORE OF THE DIRECTORY LOOKUP ROUTINES. 


2067 






/ 








2070 






/ 








20 71 






/ 








265 72 






/ 








20 73 






/ 








2074 


3000 


1123 


OFOUND > 


TAO 


rwHA T 


/NAME ALREADY IN DIRECTORY, GET WHETHER INPUT OR OUTPUT 


2075 


3001 


1047 




TAD 


L7777 


/1 = INPUT »2=0UTPUT 


20 76 


3002 


7450 




5N A 








3003 


5241 




JMP 


DD IN 


/IT S INPUT. 


2100 


30 04 


10 47 




TAO 


L7777 


/IS IT OUTPUT? 


2 1 i<31 


3005 


/4 40 




Szf A 






2102 


3006 


7402 




SYSERH 




/NOT 1 OR 2, SOMETHING HAS BLOWN, 


2103 


3007 


1121 




TAD 


FTYPE 


/1=S0URCE» 2=BI NARY 


2104 


3010 


1047 




TAD 


L7777 


/IS IT SOURCE 


2105 


3011 


7450 




SNA 






21 06 


3012 


52 17 




JM P 


OH AP 


/YEP. 2AP OUT BLOCKS FROM DIRECTORY, 


2107 


3013 


1047 




TAD 


L7777 


/8 INARY??? 


2110 


3014 


7440 




A 






2111 


3015 


7402 




SYSERR 






21 12 


30 16 


7305 




PT WO 




/BINARY FILE. ADD TWO TO BYPASS SOURCE 


2113 


3017 


1055 


02AP , 


TAO 


L4 


/BOP PAST NAME 


2114 


30 20 


1010 




TAD 


AUTOl 


/GET POINTER NOW 


2115 


30 21 


3010 




OCA 


AUTOl 




21 16 


30 22 


11 16 




TAD 


L575 7 


/BLANK OUT THE BLOCK NUMBER 


2117 


3023 


3410 




OCA i 


AUTOl 


/ (EITHER TO POINTER TO SOURCE OR BINARY) 


2120 


30 24 


4566 




PUSH 




/PUSH DOWN FBLOCK SO "REPLACE" WONT BLOW IT. 


2121 


3025 


1010 




TAD 


AUTOl 


/NOW GET THE AUTO LENGTH POINTER. 


2122 


30 26 


3012 




OCA 


AUT03 


/AND PLACE IN A TEMPORARY AUTO, 


2123 


3027 


1412 




TAD I 


AUT03 


/IF SIGN BIT OF LENGTH ON THEN NO SOURCE OR BINARY, 


2124 


3030 


7/00 




SMA CLA 




/DO WE WANT TO REPLACE???? 


2125 


3031 


4570 




REPL ACE 




/YEP, DISPLAY REPLACE MESSAGE, 


2126 


3032 


4565 




POP 




/HE S ANSWERED AN "R", NOW REPLACE FBLOCK. 


2127 


30 33 


1116 




TAD 


L575 7 


/NOW ?AP OUT The LENGTH, 


21 30 


3034 


34 10 




OC A I 


AUTOl 


/BY PLACING IN SOME 5757 S. 


21 31 


3035 


4566 




PUSH 




/NOW PUSH DOWM SO THAT WE WILL REMEMBER IT, 


2132 


30 36 


4/45 




JMS I 


OOBACK 


/BACKSPACE TO BEGINNING OF NAME, 


2133 


3037 


5640 




JMP 1 


.♦1 


/WE WANTS IT REPLACED. 


2134 


30 40 


2453 




DREENT 




/REENTRY FOR REPLACING THE FILE 


2135 






/ 








21 36 






/ 








2137 


3041 


1121 


00 IN » 


TAD 


FT YPE 


/IT AN INPUT FILE. GET THE MODE. 


21 40 


3042 


1047 




TAD 


L7777 


/IsSOuRCE* 2=81 NARY 


2141 


3043 


7450 




SNA 






2142 


3044 


5251 




JMP 


DOT 


/IT SOURCE 


2143 


3045 


1047 




TAD 


L7777 


/MAYBE IT S BINARY 


2144 


3046 


7440 




A 






2145 


3047 


7402 




SYSERR 




/UGH. PIP HAS BLOWN, 


2146 


3050 


7305 




PTWO 




/IT S BINARY. MOVE PAST SOURCE. 


2147 


3051 


1055 


DOT, 


TAD 


L4 


/PUSH PAST NAME. 


2150 


3052 


1010 




TAD 


AUTOl 


/RESET POINTER 


2151 


3053 


3010 




OCA 


AUTOl 




2152 


3054 


1410 




TAD I 


AUTOl 


/GET BLOCK NUMBER 


2153 


3055 


3122 




OCA 


FBNUM 


/AND STORE AWAY. 


2154 


3056 


1410 




TAO I 


AUTOl 


/GET SUE OF FILE 


2155 


3057 


7510 




SPA 




/IS IT OK? 


2156 


3060 


4567 




NO 




/NO. DISPLAY "NO" MESSAGE. 


2157 


3061 


3117 




OCA 


FSIZE 


/YEP, ITS THERE. STASH AWAY, 


2160 


3062 


5663 




JMP I 


.+1 


/NOW EXIT FROM DYRECT. 


2161 


30 63 


2642 




DDEXIT 






2162 






/ 









2163 






/ 










2164 






/ 










21 65 






/ 










2106 


30 64 


0000 


DN AM E » 


0 






/I nrik^i iip KiAMT i\i Tur nturrTnov 

'UUUfSj Ur i\Mnt;- li\ Int. UiKt.UlUHT, 


2167 


30 65 


17 46 




Tad 


J 




/uLl olMnillifb AUUrtL^J rUH l"L NAnL LuUKUr. 


21 70 


30 66 


10 47 




Tad 




L7 77 7 


/aP may fLinT pn\tTATM aron rnt; chmc comin! r**!! e 
/AL» nAi i\;Ui UUiVIAilv i:t"U rUK o Un t. l>r LuiAL CALLb. 


21 71 


30 67 


3010 




DC A 




AU TO 1 


/Di Apr T\i AiiTm 
/rLAUc. li^ AUlUX 


21 72 


30 70 


47 47 




JM S 


? 

I 


UlN bL L'v 


/PCT 1 rN|i~Tu 


2173 


30 71 


17 46 




f A u 


I 




/btl blAKIiriib AU UNLbo Ur ul"EC'UHY 


21 74 


30 72 


30 71 




nr A 

UU A 




TE MP 4 


/ o 1 U KL A W A T « 


'5 1 7K 
c A / 3 




1 d 7 1 




TAD 


I 


TEMP 4 


/GET FIRST WORD. IS IT "5757" 




3074 


X 10 9 / 




Tad 




M5 75 7 






30 7 5 






s^f A 


CL A 






22 0fc3 


30 76 






jM P 




DOK 


/] i b iHt"L, ALL lb WELL 


5 > ail 


'< 01 7 7 


22 64 




1 S 2 




DN AM E 


/DEiilRED NAME NOT THERE BECAUSE NO DIRECTORY, 






XX •tX 




T A n 
1 A u 




CO UN T 


/MULTIPLY CD UN 1 BY 8 


2203 


0 1 iu X 


70 06 




O T 1 










31 02 






K A L 






/otCAUbt T He. KE ARE 8 WuROS PER 


22 0 


310 3 


00 2 1 




AND 




L 7 / / 0 


/UlKtLlUKT LNIRT 


22 06 


3104 


3141 




OCA 




COUNT 




C 10 / 


OX 107 


1 1 •! 
IX 10 




T AD 




L575 7 


/MAKE IT A GOOD DIRECOTORY, 


22 10 


31 06 


0 410 




UL/ A 


1 


AU I U X 


/r 1 L L I 1 UP 


22 11 


31 0 7 


21 41 




I S ;E 




CO UN T 


/ALL DONE? 


2212 


3110 


5 3 05 




J M P 




, - 3 


/NOPE 




31 11 


5664 




JM P 


I 


DN AM E 


/Y Lr , AL L DO NE . 
























/ 










2216 
















22 1/ 


31 12 


4 7 50 


DO K » 


JM b 


I 


UN r A c> 1 


/rUbn rAbI rHtbLNi NAML, 


2220 


3113 


X T X if 




TAD 


I 


AU TO 1 


/GET FIRST WORD OF NEW NAMEt 


2221 


3l 14 


70 41 




r T A 

L 1 A 








2222 


3115 


1124 




TA D 




r M A M r 
r N An t. 


/A M A T nu o 
/A nAi LH r 


22 23 


3116 


76 40 




Si A 


Pe a 
LL A 






2224 


3117 


53 41 








DNOT 


/Kin TBv irvT 


222^ 


3120 


1410 




T A 0 


J 
i 


A 1 1 Tn 1 

AU i U X 


/A^U bU Ui\ UUhN UNIIL il rAILb uH A MAICH IS MADE. 


2226 


3121 


7(3 41 




t i A 






2227 


OX 


X X <!^9 




T A n 
1 A U 




FN AME* 1 




22 30 


31 23 


76 40 




oc A 


CL A 






22 31 


3124 


53 41 




JM P 




DN 0 T 




2232 


3125 


1410 




Tad 


I 


AU 1 ux 




22 33 


31 26 


7041 




P T A 
L i A 








22 34 


31 27 


11 26 




Tad 




r M A M r * 9 
r f\f An L ♦ t 




22 3t> 


3 1 30 


76 40 




A 


CL A 






22 36 


3131 


5341 




JMP 




DNOT 




2237 


3132 


1410 




TAD 


I 


AU TO 1 




2240 


3133 


7041 




CI A 








22 41 


3134 


1127 




TAD 




FN AM E+ 3 




22 42 


3135 


76 40 




S2 A 


CLA 






2243 


3136 


5341 




JMP 




DNOT 




2244 


3137 


4 7 45 




JMS 


I 


DNBACK 


/A MATCH SET AJTQl AND EXIT. 


22 4iP 


3140 


56 64 




JMP 


I 


DNAME 




2246 






/ 










2247 






/ 










22t>0 


31'il 


2141 


DNOT , 


IS2 




COUNT 


/FINISHED CHECKING ALL? 


2251 


3142 


5312 




JMP 




DOK 


/NO, MORE TO GO. 


2252 


3143 


2264 




\S£ 




DNAME 


/NOT THERE. PUSH BACK EXIT LOCATION 


2253 


3144 


5664 




JMP 


I 


ON AME 


/AND EXIT. 


2254 






/ 










22 55 






/ 










2256 






/ 










2257 






/ 










2260 






/ 










2261 


3145 


27 25 


DOBACK » 


OBACK 




/POINTER TO BACKSPACE ROUTlNiE 



22bZ 






ONBaCK = 


OOd ACK 


/A SLIGHT OVERcalGHT. 


22 ti 


314& 


2413 


DNKO IN T 


. uHUI M 


/PL'l \TEr^ TO BUFFERS 


22 bA 


31 47 


27 06 


DNGLEN . 


DGLEN 


/GET \JMbER OF ENTRIES ROUTINE 


2265 


315kJ 


2717 


DNPAST* 


DP AS T 


/ADVANCE POINTER TO ;>EXT N'A^E ROUTINE 


2266 






/ 






2267 






/ 






2270 






/ 






22 71 






/ 






2272 






/ 






2273 


3151 


00 0t 


NODI 




/THIS ROUTINE DISPLAYS A "\0" 


2274 


3152 


45 51 




Z: SPtAY 


/ISSUE DISPLAY COMMAND 


22 fb 


3153 


3155 




NQN031 


/MYOUTPUT CRAP 


22 76 


3154 


53 52 




JMP .-2 


/HANG AHOuNu U.niL A tO OH tP IS TYPED. 


2277 






/ 






2300 


3155 


0340 




LlFT *34B 


/ABOUT CENTER JF THE SCREEN 


2301 


3156 


7740 




ri0TT0M+34K 




23k52 


3157 


0616 








2302 


3160 


17 34 








2302 








TEXT "FMO\" 


/A SIMPLE MESSAGE. 


2303 






/ 






2304 






/ 






2305 






/ 






2306 


3161 


0000 


REPD IS , 


0 




2307 


3162 


4566 




PUSH 


/STORE AhAY FBLOCK 


2310 


3163 


4562 




DECODE 


/GET A L INE 


2311 


3164 


3173 




DI SKEP 


/REPLACE MESSAGE 


2312 


3165 


1121 




TAD FTYPE 


/GET REPLY 


2313 


3166 


1027 




TAD M322 


/IS IT AN "R" 


2314 


3167 


7640 




SiA CLA 




2315 


31/0 


5363 




JMP REPDIS+2 


/NOPE. TRY AGAlsvi. 


2316 


3171 


45 65 




POP 


/REiiTORE FSLOCK 


2317 


3172 


5761 




JMP I REPOIS 


/AND RETURN. 


2320 






/ 






2321 






/ 






2322 


3173 


0260 


DISREP* 


LtrT+260 


/ABOUT THE CENTER 


2323 


3174 


0040 




TOP-300 


/GOOD ENOUGH 


2324 


3175 


0622 








23 24 


3176 


0520 








2324 


3177 


1401 








2324 


3200 


0305 








2324 








TEXT "FREPLACEV 




2325 


3201 


7743 








2325 












2326 


3202 


4043 








2326 












2327 


3203 


4043 








2327 


3204 


1022 








2327 


3205 


4055 








2327 


3206 


5555 








2327 


3207 


4022 








2327 


32X0 


0520 








2327 


3211 


1401 








23 27 


3212 


03 05 








2327 


3213 


3400 








2327 






rir^ 


REPLACEX" 




2330 






/ 






2331 






/ 






2332 






/ 






2333 






/ 






2334 






/ 






2335 






/ 






2336 






/ 






2337 






/ 







2^40 / 

2342 / 

2343 ljlCT 



2344 
2345 
2346 
2347 
23b0 
23bl 
23t?2 
23S>3 
2354 
2355 
2356 
2357 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
23 70 
23/1 

23 72 
2373 
2374 
2375 
2376 
2377 
2400 
2401 
2402 
i^4k33 
2404 
2405 
2406 
2407 

24 10 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2420 
2421 
242k: 
if423 
2424 
2425 
2426 
2 42 7 
24 30 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2440 
2441 
2442 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



COPY ROUTINE: 

OVERLAPS IN 3200 TROM PREVIOUS PAGE. 



COPY 



GENERAL CALL: 



COPIES FSIHE BLOCKS FROM INUN I T , I NBLO CK 
TO OUTUN IT » OUTBLOCK 

AND rO MO«E UNITS OE PENDING ON THE VALUE OF «'OUTNUM" 
OUTNUM SHOULD SE 7777 FOR 1 TAPE COPY. 



3214 


0000 


CCOPY. 


0 




/MAIN ENTRY 


3215 


1103 




TAD 


INUNIT 


/GET INPUT UNIT 


3216 


3252 




DCA 


CINU 


/AND PLACE IN READ CALL 


321/ 


1102 




TAD 


INBLOCK 


/GET INPUT STARTING BLOCK 


32 20 


32 55 




DCA 


CI NB 


/AND STORE IN READ BLCOK 


3221 


1104 




TAO 


OUTBLOCK 


/GET THE OUTPUT STARTING BLOCK 


3222 


32 62 




OCA 


COUTB 


/AND LEAVE THAT IN WRITE 


3223 


1117 




TAD 


FSI2E 


/GET THE NUMBER OF BLOCKS TO COPY 


3224 


3301 




DCA 


CSUE 


/AND STOHE THAT AWAY. 


3225 


1105 


/ 

CPLOOP» 


TAD 


OUTUNIT 


/GET THE ORIGINAL OUTPUT UNIT. 


3226 


3257 




DCA 


COUTU 


/AND PLACE I N WIRTE OUT UNIT. 


3227 


1106 




TAO 


OUTNUM 


/GET NUMBER OF UNITS ITS GOING TO 


3230 


3302 




DCA 


CCOUNT 


/PLACE IN TEMPORARY COUNTER. 


3231 


1301 




TAD 


CSUE 


/GET NUMBER OF BLOCKS LEFT. 


3232 


7450 




SNA 




/ALL DONE??? 


3233 


5614 




JMP I 


CCOPY 


/YES 


3234 


7161 




CLL CML 


CMA IaC 


/13 BIT NEGATE. 


3235 


1074 




TAD 


BNUM 


/NUMBER OF BUFFERS AVAILABLE. 


3236 


7660 




SNL S2A 


CLA 


/MORE TO GO THEN BUFFERS ALOLOW? 


3237 


S245 




JMP 


CSHALL 


/NO. BUFFERS BIGGER. 


3240 


1074 




TAO 


BNUM 


/GET BUFFER SIiiE. 


3241 


3254 




DCA 


CI NS 


/STASH IN READ. 


3242 


1074 




TaD 


BNUM 




3243 


3261 




OCA 


COUTS 


/STASH IW WRITE, 


32 44 


52 51 




JMP 


CCOM 


/GO DO READ-WRITE 


3245 


1301 


/ 

CSMALL » 


TAD 


CS HE 


/GET NUMBER LEFT. 


3246 


3254 




DCA 


CI NS 


/STASH IN INPUT SIZE. 


3247 


1301 




TAD 


CSUE 




3250 


3261 




OCA 


COUTS 


/AND OUTPUT SIHE. 


3251 


4571 


/ 

CCOH , 


READ 




/READ IN CURECT NUMBER OF BLOCKS, 


32 52 


0000 


CI NU . 


0 




/INPUT UNIT. 


3253 


6400 




BUFFER 




/POINTER TO BUFFERS, 


3254 


0000 


CINS, 


0 




/NUMBER OF RECORDS TO BE READ IN. 



2^4 3 


3255 


0000 


CINB, 


0 




24 44 


32b6 


4572 


CCMOR£. 


WRITE 




2445 


3257 


0000 


COUTU, 


0 




2446 


3260 


6400 




BUFFER 




24 47 


32 61 


0000 


C0U1 S. 


0 




24i?0 


32b2 


mm 


COUTB* 


0 




24 51 


3263 


2257 






COUTU 


24 52 


32 64 


23 02 




IS^ 


CCOUNT 


245i 


3265 


5256 




JMP 


CCMORE 


2454 






/ 






2455 






/ 






2456 






/ 






2457 


3266 


1254 




TAD 


CI NS 


24 60 


3267 


1255 




TAD 


CIN8 


2461 


3270 


3255 




DCA 


CINB 


2462 


32 71 


1261 




TAD 


COUTS 


2463 


3272 


1262 




TAD 


C0UT8 


2464 


32 73 


3262 




DCA 


CDUTB 


2465 


3274 


1254 




TAD 


CI NS 


2466 


32/5 


7041 




CIA 




2467 


3276 


1301 




TAD 


CSIzJE 


2470 


3277 


3301 




OCA 


CSI2E 


24 71 


3300 


5225 




JMP 


CPLODP 


2472 






/ 




2473 






/ 






2474 






/ 






2475 






/ 






2476 


3301 


0000 


CSI2E. 


0 




2477 


3302 


mm 


CCaUNT, 


0 




2500 






/ 






2501 






/ 






25 02 






/ 






2503 


33 03 


0000 


LLEDtR, 


0 




2504 


3304 


1144 




TAD 


M212 


2505 


3305 


3141 




OCA 


COUNT 


25 06 


33 06 


1026 




TAD 


L2 00 


2507 


33 0/ 


4575 




AUXOUT 




2510 


3310 


2141 




IS2 


COUNT 


2511 


3311 


63 06 




JMP 


.-3 


2512 


3312 


5703 




JMP I 


LLEOER 


2513 






/ 




2514 






/ 






2515 






/ 






2516 


3313 


0000 


HHPUSH, 


0 




2517 


3314 


4564 




MO VE 




2520 


3315 


^3117 




FSI2E 




25 21 


3316 


3327 




HHTEMP 




2522 


3317 


0011 




FNAME+3 


«FSUE + 1 


2523 


3320 


5713 




JMP I 


HHPUSH 


2524 






/ 






25 25 






/ 






2526 


3321 


0000 


HHPOPr 


0 




2527 


3322 


4564 




MOVE 




25 30 


3323 


3327 




HHTEMP 




2531 


3324 


0117 




FS ML 




25 32 


3323 


0011 




FNAME+3 


»FSi2E+l 


25 33 


3326 


5721 




JMP I 


hhpop 


2534 






/ 






2535 






/ 






2536 


3327 


0000 


HHTEMP , 


0/HIGH 1 


SAVE ARE; 


2537 








«HHTtMPi-FNAME:*3- 


2&40 


3337 


0000 




0000 




2541 






/ 







/STARTING BLOCK NOW OF READ. 

/NOW WRITE IT OUT. 

/OUTPUT \}uU 

/BUFFER POINTER 

/NUMBER OF RECONDS, 

/0STARTING RECORD NUMBER. 

/80P UP TO NEXT OUTPUT UNIT 

/MORE UNITS TO WRITE ON?? 

/YEP, GO BACK AND WRITE ON NEXT. 



/GET THE INPUT SUE 
/AUD THE BLOCK NUMBER 
/AND UPDATE BLOCK NUMBER, 
/GET THE OUTPUT SI2E. 
/ADD THE COUTPUT SI2E. 
/AND UPDATE IT. 

/GET THE NUMBER OF RECORDS JUST TRANSFERRED. 

/AND SUBTRACT IT FROM 

/THE TOTAL TRANSFERR 

/AND STORE AwAY. 

/GO BACK AND DO SOME MORE. 



/CUREnT NUMBER OF BLOCKS GOING, 
/TEMPORAY COUNTER FOR THE UNITS. 



/GENERATES LEADER OR TRAILER 
/ABOUT 130 CHARACTERS OF LEADER 



/PUT OUT LEADER 
/ALL DONE? 
/NOPE* DO MORE. 
/ALL DONE. EXIT 



/HIGH FBLOCK SAVE, 

/MOVE FBLOCK TO A SAFE PLACE 



/RESTORES FBLOCK FROM HIGH PLACE 



/LEAVE ROOM FOR FBLOCK 
/LAST WORD OF SAVE AREA. 



2b»42 

2b44 
iib45 

2b46 

25 47 

2i?50 

2b bl 

2b52 

25P3 

2bb4 

2b!?5 

2b56 

2bb7 

256«5 

2b61 

2b62 

2b63 

2b64 

25 6b 

2b6b 

2b67 

2570 

2571 

2572 

2573 
2574 

2575 

2576 

2577 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2620 

2621 

26 22 

2623 

26 24 

2625 

2626 

2627 

2630 

2631 

26 32 

26 33 

2634 

2635 

2636 

2637 

2640 



334;3 
3341 
3342 
3343 
3344 
334i> 
3346 
3347 
5350 
3351 
3352 



4564 

3353 

112!0 

0060 
3120 

/240 
310b 
5740 



/ 

/ 
/ 

TTAPt, 



3353 0346 

3354 0^02 



3355 
33 56 
33 57 
3360 



3361 
3362 
33 63 
3364 
3365 
3366 
3367 
3370 
3371 



0000 

07 77 
02 70 
to467 



mm 

334k5 
4556 
6041 
53 63 
1340 
60 46 
7200 
5/61 



3372 
3373 
33 74 
3J75 
3376 
3377 



0000 
1415 
0030 
1001 
3001 
5772 



TTISET 

I r.L X 



TAD 
AND 
OCA 



/ 
/ 

TT rSET , 



/ 
/ 
/ 
/ 

TT YPUT • 



FU\1 T 
L7 

FU\1 T 

OU TMUM 
TTAPE 



TINOEX 

TuGwLf^ 

TSYSLOWLH 
TSYSUPPEW 



DCA TTAPE 
CHECKI 0 
6041 



JMP 
TAO 
6046 
ClA 
JMP I 



.-2 
TTAPE 



TTYPUT 



POTHER. 



ASMIF2 
ASMSKP 

a 

TaD I 

AND 

tao 

DCA 
JMP I 



PFLICK 
10 



AUT06 
L4 00 0 
LOCI 
LOCI 
POTHErt 



/SETS UP TO USE TAPE LIGHTS FQK DIRECTORY LOOKUP, 
/MOVE IN COf<HECT POINTERS 



/GET THE UwIT 

/SET UP FGh Li ^iC TAPE 

/SET FOR 1 COPY 

/A^iO ^ETuWN 



/STA-^T OF TAPE InOEX BLOCK 

/lemgth of tape index 

/LOv^LiT BlOCK i\uB?lEH ON DEVICE 
/highest BLOCK \UMBEH ON THE DEVICE 
/LQWEH LI^MT OF SYSTEM 
/LAST 3L0CK USED bY SYSTEM 



/TTY OUTPUT ROUTINE 

/STASH AWAY ^HILE DOING CHECK. 

/TEST FOR MAY9E A CONTROL 2 

/IS IT FREE? 

/NOPE. CHECK AGAIN, 

/GET IT AGAIN. 

/YEP. GOOD BYE. 

/THAIS ALL 



/DO v^E WANT THE FLICKER FACTOR ADDED? 
/NOPE. DONT ASSEMBLE THEM IN 

/FLICKER . 

/PICK A RANDOM LOCATION 
/JUST GET THE HIGH ORDER SIT 
/^J0^^ ADO IN THE TABLE POINTER 
/AMD THE CHANNEL SELECTIO WORD 
/STASH BACK AND RETURN TO THE CALLER 



2641 / 

2b^2 / 

2643 / 

2644 / 
264!? / 

2646 / 

2647 / 
2630 / 
26pl / 

265ki EjtCT 



2653 / 

<i654 / 

26 55 / 

26 56 / 

2657 / 

2660 / END OF P I P 2» 

2661 / 

2662 / 

2663 / 

2664 / CALL PIP3 

2665 / 

2666 / 
26 67 / 

2670 / 

2671 / 

2672 / 
26 73 / 

2674 CHAIN "PIP3" 



0001^ «20 

midl PMODE 

mid2 EJECT 



0003 / 

0004 / 

midb / 
/ 

0007 / 

0010 / 

0011 / This is ThL ThIKG PA^tT OF PIP. IT S CALLE 
0feJ12 / 

0013 / 

0014 / 
001i3 / 

0016 / PIP 3 

0017 / 

0020 / 

0021 / 

0022 / 

0023 / 

0024 / 
00 25 / 

0026 / 

0027 / 

0030 / 

0031 / 

0032 EJECT 



0033 








* 3 4 i" 






0i3 34 






/ 








0i} 3^ 






/ 








i3P36 






/ 




.5 I \ 4 


■V y >i C: I £ t< 


0037 






/ 














/ 








00 41 






/ 








0042 


^400 






■ILCO JE 




/GET THL Cl^f^ntCl INPUT DEVICE. 


0K43 


3401 


46 10 




b i \1 \P 




/^hIll j::jPlayi\g input message. 




3402 


/344 




MT ^0 




/sET r^Fifc.i_o to do a iVEi^ 0\E. 




3403 


3137 




OC A 


Bori ll 0 




00 46 








uC A 


OK I G IN 


/SET OhIGIi^ to j^ERO 


04 7 


34 05 


3123 




CC A 


BU LD P 


/SEI BASE To jfEWQ 


00P0 


34 06 


3135 




DC A 


8F I L LD 


/SET FIE Lb TO 2!EH0 


0051 


34 07 


3136 




IJC A 


BO LO 0 


/SET OLD OKIGIiSi TO iEHQ 


08 >2 


34 10 


31 40 




DC A 


dC OU-vT 


/SET S I2l TOiJE r<0 


00 53 


3^11 


31 02 




JU A 


tjK LA Gl 


/CLEAr^ The I'mPuT aNO OUTPUT DEVICE FLAGS, 


00 54 


34 12 


3104 




UC A 


BF LA G2 




0055 


34 13 


45 73 




SE AK CH 




/CHtC'^ IF A LEGAL OPTION WAS GIVEN 


0056 


3414 


43 77 




I \L b T 






0057 


34 IS 


4403 




ti I NG 0 




/iNiO IF IT WAS. Cn TO CORKFCT Pi AfF 


0060 


34 16 


5200 




P 


ft I \A RY 


/f\.OT A I t GAL DLV I rr . 6^ It? 

J. .^/^ 


00 61 
0062 
00 63 






/ 
/ 
/ 






0064 






/ 






00 65 


3417 


21io2 


BH 1QH» 


I S £ 


gf lA Gl 


/SFT FlAT, TORFADFR 


006 6 


3420 


2102 


8TT Y . 


IS2 


SFLAGl 


/SET FLaG To L-Ort READER. MORE DEVICE MAY COME 


0067 












/BEFORE THE HIGH READER 


0070 


3421 


1124 




TAD 


FNAMt 


/TEST TO SEE IF MDUF GIVEN 


0071 


3422 


70 40 




CM A 






00 72 


3423 


/650 




bNA CLA 






0073 


3424 


53 04 




JMP 


BP AR T2 


/NO Ll'J'TERS. NOO AUTO START, 


0074 


34 25 


11 24 




TAD 


FN AME 


/GET LEFT CHARACTER OF NAME. 


0075 


3426 


0053 




AND 


L? 700 


/OivLY P OR L NEEDED 


0076 


3427 


3121 




DC A 


FTYPE 


/AND STASH AWAY 


0077 


34 30 


45 73 




SE AR CH 




/CHECK FOR P 0*^ L 


01 00 


34 31 


3555 




dGOL ST 






0101 


3432 


3557 




db TGO 






0102 


3433 


5200 




JMP 


BINARY 


/ 1 LLEGAL 


01 03 






/ 








0104 






/ 








0105 


34 34 


1117 


BP ODE » 


TA D 


FS liE 


/GET STARTING ADDRESS 


01 06 


34 3 5 


74 50 




SNA 






0107 


3436 


1026 




tad 


L2 00 


/MQPF SET IT TO ?00 . 


0110 


3437 


3117 




DC A 


FS I ;2 E 


/AND STASH AWAY , 


0111 


3440 


73 05 




PT WO 




/GET A "POP" INSTRUCTION INTHE AC 


0112 


3441 


5252 




JMP 


BSCOMM 


/AND STOr?E AWAr. 


0113 






/ 








0114 


3442 


1117 


slode;. 


TAD 


FSI2E 


/GET THE STARTING ADDRESS. 


0115 


3443 


7450 




SNA 




/ONE GIVEN? 


0116 


34 44 


1350 




TAD 


L4020 


/NO . ASSUME 4020 


0117 


3445 


3117 




DCA 


rS Iz!E 


/SAVE BACK STARIING ADDRESS. 


0120 


3446 


1032 




TAD 


L6000 


/GET .NOT. 10 BIT MASK IN AC. 


0121 


34 47 


7040 




CMA 




/MKAE IT A GOOD 10 BIT AN D MASK 


0122 


3450 


0117 




AND 


FSIiiE 


/jUST 10 SITS. 


0123 


34 51 


10 32 




TAD 


L6 03 0 


/NOW MAKE IT A GOOD JMP IN LMODE INSTRUCTION, 


0124 






/ 






I NEEDED A PAGE 0 LOCATION, SO I DID IT THAT WAY 


0125 






/ 








0126 


3452 


3752 


BSCOHM, 


OCA I 


d300T+l 




0127 


3453 


1117 




TAD 


FSUE 


/GET STARTING ADDRESS 


0130 


3454 


3754 




OCA I 


BaoQT+3 


/PLACE AWAY IN HEADER. 


0131 


34 55 


7352 




CLA CLL 


CMA RTR 


/PLACE A JMP I 7777 IN THE AC( 57 77 ) 



01 32 


34 56 


3753 




DC A 1 


BB 00 T+ 2 


/AND PLACL AWAY. 


01i3 


3457 


1120 




TAO 


FUNI T 


/GET THE FIELD 


0134 


3460 


00 60 




ANO 


L7 


/MAKE IT KEaSO:maBLE 


0135 


3461 


7106 




CLL RTL 




/SHIFT TO CORRECT PLACES. 


0136 


3462 


1026 




TAD 


L200 




0137 


3463 


1040 




TAD 


L400 


/SAVE A PAGE 0 LITTERAL 


0140 


3464 


3120 




OCA 


FUNI T 


/PLACE BACK 


0141 


3465 


1117 




TAD 


FSI2E 


/GET STARTING ADDRESS. 


0142 


34 66 


0032 




AND 


L6000 


/JUST L'^ODE FIELD 81 TS . 


0143 


3467 


/106 




CLL RTL 






01 44 


34 70 


7004 




RAL 




/INTO CORHLCT PUSI TI ON . 


0145 


3471 


1120 




TAD 


FUNIT 


/ADD BACK IN CORRECT "LIF" 


0146 


3472 


3751 




OCA I 


eaooT 


/AND SAVE AWAY , 


0147 


3473 


5304 




JMP 


BPART2 


/GO TO COMMON. 


0150 






/ 








0151 






/ 








0152 






/ 








0153 








ASMIFH 


HF08 


/DISK THERE? 


0154 








ASMSKP 


2 


/NOPE. DOi>i T ASSEMBLE THE FOLLOWING IN. 


0155 


3474 


4577 


BLRF8, 


DI SC 




/SET UP DISK INPUT 


01 56 


34 75 


7410 




SKP 




/SKP OVER TAPE SETUP. 


0157 


34 76 


4402 




TAPE 




/SET UP Tape operation. 


0160 


3477 


73 05 




PT WO 




/TELL DIRECTORY LOOKUP ITS BIANRY 


0161 


3500 


3121 




DC A 


FT YPE 


/FTYPE=2 MEANS A BINARY FILE, 


01 62 


3501 


73 45 


BL7345 t 


CLA CLL 


CIA RAL 


/+1=BINARY, 7345=-433=-( "02")-1 FOR DELETE 2ER0 


01 63 












/IN OTHER WORDS, ITS ALSO A LlTTERALi SO OONT MESS, 


0164 


35 02 


3123 




DCA 


FWHAT 


/SET INPUT SWITCH 


0165 


3503 


4563 




DIRECT 




/GO DO IT, 


0166 






/ 








0167 


3504 


44 04 


8PART2 1 


HPUSH 




/PUSH OOWi\ THE FBLOCK REGION. 


01 70 


35 05 


45 62 




DE CO DE 




/GET THE OUTPUT DEVICE 


0171 


3506 


4703 




BI NOUT 




/BINARY UUTPUT DISPLAY CMESSAGE 


01 72 


35 07 


45 73 




SEARCH 




/CHECK NAEM FOR LEGAL OPTION 


0173 


3510 


4377 




81NLST 




/SAME INPUT AS OUTPUT FORR NOW 


01 74 


3511 


44 07 




dING02 




/JMP LIST 


0175 


3512 


5305 




JMP 


BPART2*! 


/NOT A LEGAL REQUEST. 


0176 






/ 








0177 






/ 








02 00 


3513 


2104 


BHIGH2, 


ISZ 


8FLAG2 


/SET THE OUTPUT FLAG 


0201 


3514 


2104 


BTTY2, 


IS2 


BFLAG2 


/FOR THE CORRECT DEVICE 


02 02 


3515 


2124 




IS2 


FNAME 


/PREPARE TO CHECK FOR "DH'» . BOP UP FNAME 


0203 


3516 


1301 




TAO 


8L7345 


/ADD IN -02-1. (IF NOT 7777 ) 


0204 


3517 


3101 




DCA 


BO EL 2 


/NOW STASH AWAY IN DELETE SWITCH (0 OR -02-1) 


02 05 


3520 


1124 




TAD 


FNAME 


/NOW GET THE CORRECT NAME+1 


02 06 


3521 


1101 




TAD 


BDEL2 


/COMPARE AGAINST WHAT WE PUT THERE 


0207 


^b^2 


76 40 




S^A CLA 




/DO THEY MATCH. 


0210 


35 23 


5305 




JMP 


BPART2*! 


/THEY OONT MATCH. ASK AGAIN, 


0211 












/NOW B0EL2 CONTAINS 0 FOR NO DELETE OR 7345 FOR DELETE. 


0212 






/ 








0213 






/ 








0214 








ASMI F2 


RF0b 


/DISK THERE???? 


0215 








ASMSKP 


2 


/NOPE. NO DISK CODE NOW, 


0216 


3524 


4577 


BLRF82, 


DISC 




/SET FOR DISC NOW 


0217 


3525 


7410 




SKP 






0220 


3526 


4402 


BLT2, 


TAPE 




/SET FOR LINC TAPE. NOT DISC 


0221 


3527 


4566 




PUSH 




/SAVE FBLOCK IN LOW SAVE AREA. 


02 22 


3530 


7305 




PTWO 




/SET BINARY MODE AGAIN. 


0223 


3531 


3121 




DCA 


FT YPE 


/IN CASE OF COPY 


0224 


3532 


7240 




MONE 




/IS IT A MASS STORAGE DEVICE OPERATION 


0225 


3533 


1102 




TAD 


BFLAGl 




0226 


3534 


1104 




TAD 


BFLAG2 


/IF NEGATIVE IT IS. 


0227 


3535 


/710 




SPA CLA 




/THE TESTl 


02 30 


3536 


5406 




FILEC 




/YEP. COPY CHOSEN FILLS, 



31 


3537 


1104 




TAD 


BFLAG2 


0232 


35 40 


7640 




S2A CLA 




0234 


5541 


44 05 




LEADER 




02 34 


3542 


1102 




TAD 


BFLAGl 


0235 


3543 


7650 




SNA CLA 




0236 


3544 


5746 




JMP I 


BBTAPE 


0237 


3545 


5747 




JMP 1 


BLODYR 


02 40 






/ 






0241 






/ 






0242 






/ 






0243 






/ 






0244 


3546 


4003 


B8TAPE, 


BI NTAP 




02 4t> 


3547 


3600 


BLOOYR. 


BNFILE 




0246 


3550 


4020 


L4020# 


4020 




02 47 






/ 






02b0 


3551 


70 00 


8B00T, 


8UFFER+400 


0251 


3552 


7001 




BUFFER+401 


02t>2 


3553 


7002 




BUFFER*' 


'»02 


0253 


3554 


7003 




BUFFER+403 


0254 






/ 






0255 


3555 


1400 


BGOLST. 


1400 




0256 


3556 


6000 




6000 




02 57 






/ 






0260 


3557 


3442 


BSTGO, 


BLODE 




0261 


3560 


3434 




BPODE 




02 62 






/ 






0263 






/ 






0264 






/ 






0265 






/ 






0266 






/ 






0267 






/ 






02 70 






/ 






0271 






/ 






0272 








ASMIFN 


CARD-1 


0273 








ASMSKP 


30 


0274 






/ 






0275 






/ 






0276 


3561 


0000 


CRDLTT , 


0 




02 77 


35 62 


1121 




TAD 


FTYPE 


0300 


3563 


1376 




TAD 


CRM303 


0301 


3564 


7640 




St A CLA 




0302 


3565 


5761 




JMP I 


CRDLTT 


0303 


3566 


1120 




TAD 


FUNI T 


0304 


3567 


3136 




DCA 


SOLDO 


0305 


3570 


1117 




TAD 


FSI2E 


0306 


3571 


3131 




DCA 


DATA 


0307 


3572 


4777 




JMS I 


CRINIT 


0310 


3573 


2102 




ISl 


BFLAGl 


0311 


3574 


5775 




JMP I 


. + 1 


0312 


35 75 


5017 




ASCHl 




0313 






/ 






0314 


3576 


7475 


CRM303* 


-303 




0315 


3577 


6005 


CRINIT, 


CDINIT 




0316 






/ 






0317 






/ 






0320 






/ 






0321 






/ 






0322 






/ 






03 23 






/ 






0324 






/ 






0325 






/ 






0326 






/ 






03 27 






/ 







/GET OUTPUT FLAG 

/TAPE OUTPUT? 

/NO, PUNCH LEADER. 

/IS IT LINC TAPE INPUT??? 

/YEP. GO TO LING TAPE ROUTINE 
/NOPE. USE STANDARD BINARY LOADER. 



/NORMAL STARTING ADDRESS IN LINC MODE. 
/HEADER BLOCK SELF STARTING POINTERS. 



/L»100 
/P«100*4kiO0 



/DO WANT CARD READER CRAP LOADERED???? 
/GUESS NOT. DON T ASSEMBLE THEM. 



/CARD READER CHECKER AND INITIALI2ER. 
/GET THE REPLY , 
/IS IT A "C" 
/? 

/NOPE. RETURN TO CHECK MORE, 

/YEP. GET THE STARTING COLUMN 

/AND STASH AWAY. 

/AND GET THE LAST COLUMN 

/AND STORE IT AWAY. 

/ITIALI2E CARD READER. 

/PREPARE TO SET THE INPUT FLAG TO 3 

/NOW ADD T^O TO THE INPUT FLAG 

/HIGH SPEED READERS2 

/A - "C" 

/POINTE TO CARD READER INITIALISE ROUTINE. 



03 30 / 

0331 / 

03 32 / 

0333 / 

0334 / 

0335 / 

0336 / 

0337 EJECT 



0340 






/ 






0341 












0342 






/ 






0343 






/ 






0344 






/ 






0345 






/ 






0346 






/ 






03 47 


36 00 


6016 




o-i 16 




03 50 


36 01 


6032 




6..' 32 




0351 


3602 


3135 




DCA 


er ield 


0352 


3603 


3372 




DCA 


BFEI LD 


0353 


3604 


4243 




JMS 


bEGG 


03 54 


36 05 


52 04 




JMP 


,-1 


0355 






/ 






0356 


3606 


3371 


BGO» 


DCA 


BCHICK 


0357 


3607 


1105 




TAD 


BCHAR 


03 60 


361ti 


3077 




OCA 


BKOROl 


0361 


3611 


4574 




AUXI\ 




0362 


3612 


3100 




DCA 


B^^0KD2 


^5363 


3613 


4243 




jys 


BEGG 


0364 


3614 


5276 




jMp 


BE NO 


0365 


3615 


4234 




jMb 


BAbSEM 


0366 


3616 


7420 




SNL 




0367 


3617 


5227 




jMP 


BBBPUT 


03 70 


36 20 


3130 




OCA 


OKIG IN 


0371 


3621 


1372 


BCHEX, 


TAC 


BFEILD 


03 72 


3622 


3135 




OCA 


BF lElO 


0373 


3623 


1077 




TAD 


BWORDl 


0374 


3624 


1100 




TAD 


BtJ0R02 


0375 


3625 


1371 




TAD 


8CHECK 


0376 


3626 


5206 




JMP 


BGO 


0377 






/ 




0400 


3627 


3131 


BBBPUT , 


CCA 


DATA 


0401 


3630 


4576 




PUIWORQ 




0402 


3631 


2130 




\Si 


OR IG IN 


0403 


3632 


7600 


m2«)0 , 


-200 




0404 


3633 


5221 




JM P 


8CHEX 


0405 






/ 




0406 


3634 


00 00 


BASSEM, 


0 




04 07 


3635 


1077 




TAD 


BkiOROl 


04 10 


36 36 


7106 




CLL RTL 




0411 


3637 


7006 




RTL 




0412 


36 40 


70 06 




RTt 




0413 


3641 


1100 




TAD 


BW0R02 


04 14 


3642 


5634 




JMP I 


BA Sb EM 


0415 






/ 




04 16 


3643 


0000 




0 




0417 


3644 


3071 




OCA 


TEMP4 


0420 


3645 


4574 




AbXl N 




0421 


3646 


1145 




TaD 


M377 


0422 


36 4 7 


7640 




SifA CLA 




fe5423 


3650 


5254 




JMP 


. *4 


04 24 


3651 


2071 




\Si 


TEMP4 


0425 


3652 


7040 




CM A 


04 26 


3653 


5244 




JMP 


BEGG*1 


0427 


3654 


1071 




TAD 


TEHP4 


0430 


3655 


7640 




A CLA 




0431 


3656 


5245 




JMP 


BEGG+2 


04 32 


3657 


1105 




TAD 


eCHAR 


Z433 


3660 


0036 




AND 


L700 


0434 


3661 


1232 




TAD 


M2 00 


0435 


3662 


7512 




SPA 




04 36 


36 63 


22 43 




152 


BEGG 



MORE i:I\iKV LCA:En ^QjTl\ES A^D CRAP. 



I. 



/IMTIA^F A.\0 ClEA^^ all possible DEVICES. 

/SET FIElO TO 25ERD. 

/A\0 SE^ \EM riEi^n TCJ 3E?tC ALSO, 

/JET A CHARACTEn 

/L EAOER-TRAI LER. IG\OKE IT. 

/UPDATE CHECKSUM 
/GET The CHARACTER 
/STORE ArtAY 
/LO0^u?^ FO*^ NEXT CHAK 
/A NO SAVE 

/LOOK AHEAD 0\t NQW, 

/TRAILER FOUND. ChECK CHECKSUM. 

/ASSEMBLE A wOHO 
/ORIGIN? 

/NO. PLACE IN DATA ^^ORO 
/YES. STORE IN ORIGIN. 
/GET THE NEXT FIELD 

/AND STORE IT IN ThE PRESENT FIELD FOR NEXT TIME 



/UPDATE CHECKSUM 

/AND GO GET NEXT ^ORD. 

/PLACE IN OATA FOR OUTPUT ROUTINE TO USE. 
/GO OUTPUT IT. 
/GO TO NEXT LOC. 
/NOP IN CASE OF SKIP 
/AND UPDATE CHECKSUM 



/GET THE FIRST WQRD 

ZHOU PLACE IN SECOND PART 
/NOV* EXIT 

/GETS AsiO CHECKS A CHARACTER FROM GIVEN SEQUENTIAL DEVICE. 

/SET S'^IJC» 

/GET A CHARACTER. 

/CHECK FOR RJBOUT 

/? 

/NO RUBOUT 

/YES. COMPLEMENT SWITCH 

/GO BACK AGAIN. 
/SWITCH SET? 

/YEP. STILL IN RU80UTS 
/GET THE CHAR 
/HIGH ORDER BITS ON? 
/GET TYPE 

/IS IT JUST LEADER 

/NO HIGH ORDER SITS ON. 



04 37 


36 64 


77 50 




SPA SNA 


CLA 


/TEST NOW FOR ORIGIN AN D L EaOE R- TR Al L£ R 


0440 


3665 


5643 




JMP I 


BEGG 


/DATA»0R1GIN, OR LEADER TRAILER 


04 41 


3666 


1105 




TAD 


BCHAR 


/FIELD CHARACTER 


0442 


3667 


0374 




AND 


L70 


/JUST GET FIELD 


0443 


3670 


3372 




OCA 


BFEILO 


/SAVE IN NEXT FIELD 


0444 


3671 


1372 




TAD 


BFEILD 


/GET BACK 


0445 


3672 


1023 




TAD 


M2 0 


/MORE TEHN 8 K? 


04 46 


36 73 


77 00 




SMA CLA 






fcJ447 


36 74 


45 67 




NO 




/YEP , TOOOO BBBI IGGG! ! I 


04S>0 


3675 


5245 




JMP 


BEGG+2 




0451 






/ 








0452 






/ 








0453 


3676 


4234 


BEND, 


JMS 


BASS EM 




0454 


3677 


7041 




CIA 






0451? 


3700 


1371 




TAD 


BCHECK 


/CHECK CHECKSUM 


0456 


3701 


7640 




SEA CLA 




/GOOD? 


0457 


3702 


5775 




JMP I 


BCERR 


/GIVE CHECKSUM MESSAGE, IT BAD 


0460 


3703 


44 76 




JMS I 


PMORE 


/ASK IF ANY MORE TAPES? 


0461 


3704 


5200 




JMP 


BNFILE 




0462 


37 05 


7240 




MONE 




/CLOSE THE OUTPUT FILE 


0463 


3706 


3135 




DCA 


BFIELO 




0464 


3707 


4576 




PUTWORD 




/SEND T 0 BLAHS. 


0465 


3710 


5552 




PIP 




/RETURN TO PIP 


0466 






/ 








0467 






/ 








0470 






/ 








0471 






/ 








0472 






/ 








0473 


3711 


0000 


S£Q1N» 


0 




/SEQ INPUT UNIT, 


04 74 


3712 


4556 




CHECKIO 




/CHECKIO AND LEAVE AC 0 


04 75 


3713 


3073 




DCA 


CNTRLE 


/CLEAR THE CONTROLH FLAG 


04 76 


3714 


1102 




TAD 


BFLAGl 


/GET INPUT FLAG, 


0477 


3715 


1047 




TAD 


L7777 


/SUBTRACTl 


0500 


3716 


7650 




SNA CLA 






0501 


3717 


5336 




JMP 


SEQTTY 




0502 


3720 


4560 


SEQTST* 


GETL 




/TEST LOW READER FOR A CHAR 


0503 


3721 


5327 




JMP 


SEQNl 




0504 


3722 


1373 




TAD 


M232 




0505 


37 23 


7450 




SNA 






0506 


3724 


2073 




ISi£ 


CNTRL2 




0507 


37 25 


76 50 




SNA CLA 






0510 


3726 


5711 




JMP I 


SEQIN 


/EXIT 


0511 






/ 








0512 






SEQNl. 


ASMIFN 


CARD-1 


/DO WE WANT CARD READER CHECK L0ADED??V?? 


0513 








ASHSKP 


5 


/NOPE. DONT ASSEMBLE THEM IN 


0514 






/ 






/CHECK FOR CARD READER AND GET CHAR. 


0'3l5 


3727 


4776 




JMS I 


SEQCIN 


0516 


3730 


5320 




JMP 


SEQTST 


/CHAR NOT READY YET, 


0517 


3731 


5340 




JMP 


SEQCOM 


/CHAR READY. 


0520 






/ 








0521 






/ 








0522 


3732 


6011 




6011 




/DEVICE IS HIGH SPEED READER. FLAG READY??? 


0523 


3733 


5320 




JMP 


SEQTST 


/GO INTO BIG WAIT LOOP 


0524 


3734 


6016 




6016 






0525 


3735 


5340 




JMP 


SEQCOM 




0526 


3736 


4560 


SEOTTY, 


GETL 




/GET A CHARACTER 


0527 


37 '37 


5336 




JMP 




/WAIT FOR IT 


0530 


37 40 


3105 


SEQCOMi 


. DCA 


BCHAR 


/STASH AWAY 


0531 


3741 


1105 




TAD 


BCHAR 




0532 


3742 


1373 




TAD 


M232 




0533 


3743 


7650 




SNA CLA 






0534 


3744 


2073 




ISH 


CNTRL2 




0535 


37 45 


1105 




TAD 


BCHAR 





0:?36 


3746 


5711 




JMP I 


SEQl N 


fc5537 






/ 






0t>40 






/ 






0541 






/ 






0b 42 


3747 


0000 


SE 00 UT » 


0 




0543 


3750 


3311 




DCA 


SEQI N 


0 b 44 


3751 


4556 




CHECK I 0 




1(5545 


3752 


1104 




TAD 


BFLAG2 


05 46 


3753 


1047 




TAD 


L7777 


ia547 


3754 


7640 




S2A CLA 




0550 


3755 


5361 




JMP 


SEQ02 


i3551 


3756 


1311 




TA D 


SE Q I N 


055ii 


37 57 


4 407 




PU TL 




05 53 


3760 


5747 




JM P I 




0554 






/ 






05 55 






SE 002 • 


AS MI Fi! 


CA RD -1 


0556 


3761 


4777 




jM S I 


SE QL P 


0557 






/ 






0560 


3762 


4556 




w n L. w r\ ^ \j 




0561 


3763 


6021 




o KJ X 




05 62 


3764 


5362 




JH P 




0563 


3765 


1311 




T AO 


SEQ I N 


05 64 


3766 


60 26 




60 26 




0565 


3767 


7200 


SEQE XT , 


Ct A 




0566 


3770 


5747 




IMP t 


cc nniiT 
dc y uu i 


0567 






/ 






0570 






/ 






0571 






/ 






05 72 






/ 






0573 


3771 


0000 


BCHECK • 

w w n i* r 1 p 


0 




0574 


3772 


0000 


BFEI LO » 


0 




05 75 


37 73 


75 46 


m2 32 , 


-2 32 




0576 


3774 


0070 


L70 , 


70 




0577 


3775 


4477 


8CERR, 


CERR 




06 00 






/ 






0601 






/ 






0602 






/ 






0603 






/ 






06 04 








ASHI FN 


CARQ-1 


0605 








ASMSKP 


3 


06 06 






/ 






0607 


3776 


6025 


5E0CIN. 


CORE AD 




0610 


3777 


6275 


SEQLP, 


LP TEST 




0611 






/ 






0612 






/ 






0613 






/ 






0614 






/ 






0615 






/ 






0616 






/ 






0617 








EJECT 





/SEQUNETIAL OUTPUT BLOP, 
/SAVE THE CHAR 
/CHECK 10 

/GET THE OTPUT FLAG 



/HIGH PUNCH OUTPUT 



/OUT IT GOES. 

/OO WE CHtCK FOR LINE PRINTER??? 
/YEP, GO CHECK 

/LINE PRINTER ISn T THE ONE. 

/WAIT FOR OK. 

/WAIT TILL DONE. 

/GET THE CHAR. 

/SEND IT OUT 

/CLEAR THE AC, 

/ALL DONE. 



/CARD READER AND LINE PRINTER THERE???? 
/NOPE. OONT ASSEMBLE IN POINTERS. 

/POINTER TO CARD READER ROUTINE, 
/POINTER TO LINE PRINTER ROUTINE. 



0620 
0621 
B6 22 
0623 
0624 
0625 
0626 
0627 
06 30 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0640 



4000 
4001 
4002 



0000 
0000 
0000 



»4000 



0000 
0000 
0000 



0641 


4003 


4403 


BI NTAP . 


HPOP 


FUNI T 


0642 


4004 


1120 




TAO 


0643 


4005 


4211 




DCA 


. *4 


0644 


4006 


il22 




TAO 


FBNUM 


0645 


4007 


3214 




UCA 


. + 5 


0646 


4010 


4571 




READ 




0647 


4011 


0000 




0 




0650 


4012 


7000 




8UFFER+400 


0651 


4013 


0001 




1 




0652 


4014 


0000 




0 




0653 


4015 


4403 




HPOP 




0654 


4016 


2122 




ISZ 


FBNUM 


0655 


4017 


47 72 




JMS 1 


8SETI 


0656 


4020 


1056 




TAD 


M40 


0657 


4021 


3132 




DCA 


BTEMPl 


06 60 


4022 


1367 




TAD 


bhtab 


0661 


4023 


3133 




OCA 


BTEMP2 


0662 






/ 




M400 


0663 


4024 


1064 


BE ILOP . 


TAO 


0664 


4025 


3134 




OCA 


8TEMP3 


06 65 


4026 


1132 




TAO 


8TEMP1 


0666 


4027 


1371 




TAD 


L40 


06 67 


40 30 


7112 




CLL RTR 




0670 


4031 


7012 




RTR 




0671 


4032 


/010 




RAR 




0672 


4033 


3130 




OCA 


ORIGIN 


0673 


4034 


7006 




RTL 




0674 


4035 


7006 




RTL 




0675 


4036 


3135 




DCA 


BFIELD 


0676 


4037 


1533 


8ETLP2 . 


, TAD I 


BTEMP2 


0677 


4040 


7650 




SNA CLA 




07 00 


4041 


5245 




JMP 


BE OUT 


0701 


4042 


4773 




JMS I 


BGETI 


0702 


4043 


3131 




DCA 


DATA 


0703 


4044 


4576 




PUTWORD 




07 04 


40 45 


2130 


8E0UT, 




ORIG IN 


0705 


4046 


7000 




NOP 


BTEMP3 


0706 


4047 


2134 




ISi 


0707 


4050 


5237 




JMP 


BETLP2 


0710 


4051 


2133 




IS2 


BTEMP2 


0711 


4052 


70 00 




NOP 


8TEMP1 


0712 


4053 


2132 




iSi 


0713 


4054 


5224 




JMP 


BEILOP 


0714 


4055 


72 40 




MONE 




0715 


4056 


3135 




OCA 


8FIELD 


0716 


4057 


4576 




PUTWQHO 





MORE OF The BIMAKV ROUTINES, 



/FIRST 3 LOCATION ARE RESERVED FOR A REGISTESR IN LMODE 



/INPUT FROM LINC TAPE. 
/GET THE UNIT 

/SET UP CONTROL BLOCK READ 
/GET THE STARTING BLOCK NUMBER 
/GET BLOCK NUMBER 
/READ IN HEADER BLOCK 
/PLACED IN UNIT 

/READ HEADER SLOCK IN SECOND BLOCK OF BUFFER. 

/I RECOOD 

/CORECT BLOCK NUMBER 
/HAP IN FBLOCK AGAIN 

/MOVE PAST HEADER BLOCK 
/SET UP /JORO GETTER. 

/SET UP NUMBER OF 400 WORD BLOCKS TO CHECK 
/AND STASH Ai^AY. 

/GET START OF MEMORY MAP CONFIG. 
/AND PLACE AWAY, 

/400 WORDS PER RECORD 

/SET UP COUNT 

/GET THE BLOCK NUMBER 

/GET BETWEEN 0-37 



/MOVE INTO 7400 POSITION 
/SET UP INITIAL ORIGIN, 

/HOVE LINC TO FIELD POSITION. 
/AND PLACE IN BFIELD. 
/IS THIS BLOCK USED, 
/? 

/NOPr, k^ANDER DOWN, 
/GET A WORD FROM TAPE/ 
/PLACE IN DATA WORD. 
/SEND IT DOWN THE LINE. 
/BOP UP ORIGIN. 

/BOP UP 400 COUNTER 

/NOT YET DONE. DO ANOTHER. 

/BOP UP HAP POINTER 

/IT REALLY CAN SKlPtI FOUND OUT THE HARD WAY) 
/BOP UP 8IGC0UNT POINTER 
/GO BACK AND GET NEXT FIELD AND ORIGIN. 
/ALL DONE, 

/PLACE AN "EOF" ON BFIELD 
/END OF FILE CODE WORD. 



0717 


4060 


5;>52 




? I P 






/RETURN Tn PIP 


637 20 






/ 










0721 






/ 










0722 






/ 








/i'^AlN TAPE OUTPUTER. 


0723 
0724 


40 61 


mm 


/ 

BTAPL, 








0725 


4262 


1133 




TAD 




ILLD 


/LAST TIME THROUGH? 


07 26 


4063 


7a 01 




lAC 








0727 


4064 


7652 




SNA 


CL A 




/? 


0 7^0 


4065 


1>77^ 




JMP 


I 


d T t \ D 


/YLP. CLOSE FILE. 


0731 


4066 


1135 




TAD 




dFRLD 


/GET THE FIELD 


0732 


4ij67 


;2;4i 




Ci A 








0733 


407k; 


1137 




TAD 




BOFIELO 


/SAME AS LAST ONE? 


0734 


4071 


/64k) 




S£k 


CL A 






0735 


4072 


5315 




JMP 




81 DIFF 


/NOPE. SET TO CHANGE BANKS. 


0736 


4073 


1130 




TAD 




OR IG IN 


/GET THE ORIGIN 


0737 


40 74 


0064 




AND 




L7400 


/JUST HIGH BITS. 


07 40 


4075 


7041 




CIA 






/ 


0741 


4076 


1136 




TaO 




BOLOO 


/ADD IN LAST ORIGIN 


0742 


4077 


7640 




b2 A 


cla 




/SAME 400 rtORD BANK?? 


0743 


4100 


5315 




JMP 




Bl 01 FF 


/NOPE. . CHANGE BANKS . 


0744 






/ 










074^ 


4101 


1130 


BI NTRY , 


TAD 




OR IG IN 


/GET THE ORIGIN 


0746 


4102 


0365 




AND 




L3/7 


/GET IN 4fe)kj WORD BANK POSMTION 


0747 


4103 


1366 




TAD 




BPOINT 


/GET START OF BUFFER LOCATION. 


07tJ0 


4104 


3065 




OCA 




TEMP 


/STORE AWAY 


0751 


4105 


1131 




TAD 




DATA 


/GET The OATa k^ORD 


0752 


4106 


^465 




DC A 


I 


TEMP 


/NOW PLACE IN BUFFER 


0753 


4107 


1130 




TAD 




OR IG IN 


/GET ORIGIN 


0754 


4110 


0064 




AND 




L7400 


/GET JUST BANK NUMBER 


0755 


4111 


3136 




DCA 




SOLDO 


/STASH AWAY, 


0756 


4112 


1135 




TAD 




BF lELD 


/RESET The field TOO 


0757 


4113 


3137 




DCA 




BOFI ElO 


/AND AWAY IT GOES. 


0760 


4114 


5661 




JMP 


I 


BTAPE 


/GO BACK AND GET ANOTHER WORD. 


0761 






/ 










0762 






/ 










0763 


4115 


1130 


Bi Di rr , 


TAD 




ORIGIN 


/GET THE ORIGIN 


0764 


4116 


7006 




htl 








0765 


4117 


7006 




RTL 








0766 


4120 


00 60 




AND 




L7 


/MUST MAKE IT BITS 8-11 


0767 


4121 


1135 




TAO 




BF lELO 


/PUT IN FIELD BIT NOW! 


07 70 


4122 


/004 




RAL 






/AND ROTATE IN REST OF CRAP, 


0771 


4123 


3132 




DCA 




BTEMPl 


/STASH AWAY/ 


0772 


4124 


1137 




TAD 




BOFIELD 


/GET THE OLD FIELD BITS, 


0773 


4125 


7700 




SMA 


CLA 




/IF ITS MiNUSi UONT DUMP BUFFERS. 


0774 


4126 


4352 




JMS 




8IDUMP 


/NOT THE FIRST TIME THROUGH. DUMP BUFFERS 


0775 


4127 


1132 




TAO 




BTEMPl 


/REGET NEW PDS I T ION 


0776 


4130 


3123 




OCA 




80LDP 


/AND PLACE I N OLD PLACE 


0777 


4131 


1132 




TAD 




btlmpi 


/GET PLACE AGAIN 


1000 


4132 


1367 




TAD 




6MTAB 


/START OF POSITION THING 


1001 


4133 


3133 




DCA 




BTEMP2 


/CORE MAP 


1002 


4134 


1533 




TAD 


I 


BTEMP2 


/GET REFERNCt ^ORD 


1003 


4135 


7650 




SNA 


CLA 




/!S IT TAKEN? 


1004 


4136 


2140 




IS2 




BCUUNT 


/NOPE. AiNiOTHtR RECORD TO WRITE OUT LATTER ON. 


1005 


4137 


7240 




MONE 






/MEANWHILE.. 


1006 


4140 


3533 




OCA 


I 


8TEMP2 


/TELL SYSTEM IT S TAKEN NOW, 


1007 


4141 


1132 




TAD 




BTEMPl 


/REGET BASE POINTER 


1010 


4142 


1364 




TAD 




eMBASE 


/ADD IN STARTING BLOCK NUMBE 


1011 


41 43 


33 50 




DCA 




,*5 


/READ IN NEW CORE IMAGE FOR OVERLAYING, 


1012 


4144 


45 71 




READ 






/READ IT IN 


1013 


4145 


0001 


OSYSl. 


SYSB IN 




/FROM SYSTEM BINARY UNIT. 


1014 


4146 


64^0 




dUFFER 




/THIS IS The GENERAL CORE WORKING AREA FOR THE 


1015 


4147 


0001 




1 









1016 
1017 
10 20 
1021 
10 22 
1023 
1024 
1025 
1026 
1027 
1030 
1041 
1032 
1033 
1034 
1035 
1036 
1037 
1040 
1041 
1042 
1043 
10 44 
1045 
1046 
1047 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
10 60 
10 61 
10 62 



4150 
4151 



4152 
4153 
4154 
4155 
4156 
4157 
4160 
4161 
4162 
4163 



4164 
4165 
4166 
4167 
4170 
4171 
4172 
4173 



00 00 
5301 



0000 
1103 
1364 
3362 
4572 

m%\ 

6400 
0001 



5752 



0370 
0377 
64 00 
7340 
42 00 
0040 
4^14 
4525 



/ 
/ 
/ 

BIOUMP* 



DSYS2* 



/ 
/ 
/ 
/ 
/ 

BMBASE • 

L377, 

BPOINT. 

BMTABf 

8TEND, 

140, 

BSETI, 

BGETI, 



JMP 



TAD 
TAD 

OCA 

WRITE 

SYSB IN 

BUFFER 

1 

0 

JMP I 



BINTRY 



BOLDP 
BMBASE 
. + 5 



BIDUMP 



/RECORD NUMBER GOES HERE. 
/RETURN TO MAIN PUTTER, 



/DUMPS THE PRESENT BUFFER INTO THE CORRECT POSITION. 

/GET OLD POINTER 

/ADD IN THE RECORD NUMBER BASE, 

/SAVE AWAY. 

/WRITE IT OUT. 



/RETURN 



SYSB BLOCK 
377 

BUFFER 
BUFFER+740 

BTENT 
40 

SETI 
GETI 



/BINARY CORE WORKING AREA 
/LOADING MAP. 



EJECT 



1063 








«4200 




1064 






/ 






1065 






/ 






1066 






/ 






1067 






/ 






1070 






/ 






1071 






/ 






1072 


4200 


4667 


BTENT. 


JMS I 


BBDUMP 


1073 


4201 


1140 




TAD 


BCOUNT 


1074 


4202 


7450 




SNA 




10 75 


4203 


4567 




NO 




1076 


4204 


3671 




DC A I 


B80INT-1 


1077 


4205 


4572 




WR I TE 




1100 


4206 


0001 


BSYbi , 


SYSB IN 




1101 


4207 


7000 




BUrFER* 


400 


1102 


4210 


0001 




1 




1103 


4211 


0447 


8BBHDR 


, SYSHOR 




1104 






/ 






1105 






DSYS3= 


BSYS 




1106 






/ 






1107 


4212 


4565 




POP 




1110 


4213 


1140 




TAO 


BCOUNT 


1111 


4214 


7001 




I AC 




1112 


4215 


3117 




DC A 


FS I2E 


1113 


4216 


7305 




PTWO 




1114 


4217 


3123 




DCA 


FWHAT 


1115 


4220 


7305 




PT^^O 




1116 


4221 


3121 




DCA 


FT YPE 


1117 


4222 


4563 




DIRECT 




1120 


4223 


44 04 




HP USH 




1121 


4224 


1122 




TAO 


FBNUM 


1122 


4225 


3104 




DCA 


OUTBLQCK 


1123 


4226 


1120 




TAD 


FUNIT 


1124 


4227 


3105 




DCA 


OUTUNI T 


1125 


4230 


1206 




TAD 


BSYS 


1126 


4231 


31 03 




DCA 


INUNIT 


1127 


4232 


1211 




TAD 


BBBHOR 


1130 


4233 


3102 




OCA 


INBLOCK 


1131 


4234 


7201 




PONE 




1132 


4235 


3117 




DCA 


FSI2E 


1133 


4236 


4554 




COPY 




1134 


4237 


12 70 




TAD 


6BBASE 


1135 


4240 


3102 




DCA 


INBLOCK 


1136 


4241 


4564 




MOVE 




1137 


4242 


6400 




BUFFER 




114a 


4243 


7000 




BUFFER+400 


1141 


4244 


0400 




400 




1142 


4245 


1272 




TAO 


BBOI NT 


1143 


4246 


3132 




DCA 


BTEMPl 


1144 


42 47 


1056 




TAD 


M4 0 


1145 


4250 


3134 




DCA 


BTEMP3 


1146 


4251 


2104 




\SZ 


OUTBLOCK 


1147 






/ 






1150 


42 52 


li>32 


BELOOPi 


' TAO 1 


BTEMPl 


1151 


4253 


7650 




SNA CLA 




1152 


4254 


52 61 




JMP 


8EEND 


1153 


4255 


72 01 




PONE 




1154 


42 56 


3117 




DCA 


FSI2E 


1155 


4257 


4554 




COPY 




1156 


4260 


2104 




IS2 


OUTBLOCK 


1157 


4261 


2102 


BEEND. 


1S2 


INBLOCK 


1160 


42 62 


2132 




IS2 


BTEMPl 


1161 


4263 


70 00 




NOP 



BINARY LOADER ROUTINES. 



/DUMP THE BUFFER 

/NUMBER OF RECORDS SAVED. 

/ANY AT ALL? 

/NOPE. 

/STASH IN HEADER BLOCK. 
/WRITE OUT HEADER BLOCK NOW, 



/POSITION OF HEADER BLOCK ON SYSTEM. 



/BRING BACK FBLOCK FROM LOWER AREA NOW, 

/REGET THE LENGTH. 

/ADD 1 FOR HEADER BLOCK 

/SAVE IN CORRECT PLACE. 

/SET FOR OUTPUT FILE. 

/SET FOR BINARY F|lE 

/LOOKUP UP NAME AND ROOM. 

/STASH AWAY. 

/GET THE STARTING BLOCK 

/STAbH IN UNIT TOO. 
/SET UP OUTPUT UNIT, 
/GET INPUT UNIT 
/SET UP INPUT UNIT 

/POINTER TO HEADER BLOCK 
/STASH IN INPUT BLOCK NUMBER 
/SET THE SUE TO 1 BLOCK 

/COPY THE HEADER BLOCK TO THE CORRECT LOCATION ON TAPE, 

/GET THE BINARY WORK AREA POINTER. 

/SET THE INPUT UP AGAIN. 

/NOW MOVE THE HEADER BLOCK WHICH 

/WE JUST READ INTO BUFFER BY COPY 

/BACK UP TO 8UFFER+400 SO WE CAN USE THE HEADER 

/BLOCK INFORMATION FQR THE COPYING OF THE BLOCKS. 

/START OF MEMORY BLOCK CONFlG. 

/SET UP GUTCHECKER 

/SET UP TO LOOK AT 40 BLOCKS 

/8TEMP3 IS OUR COUNTER NOW. 

/SKIP PAST HEADER BLOCK 

/GET THE MOMORY USAGE WORD 

/BLOCK USED? 

/NOPE. GO DOWN 

/SET TO MAKE A 1 BLOCK COPY 

/BY Placing a "i" in fsi2e 

/YEP. COPY A BLOCK 
/GO TO NEXT OUTBLOCK. 
/GO TO NEXT INPUT BLOCK 
/BOP MEMORY POINTER 

/this CAN SKIP IF BUFFER WAS SET TO 7000 



1162 


42 64 


<^ 1 34 




I3zf 




/HAVE wE FINISHED THE HEADER BLOCK? 


11 63 


42 65 


52 52 




JMP 


BE LOOP 


/:mOT . ye T done . 


1164 


4266 


^552 




PIP 




/ALL DOOE. RETURN TO PIP, 


11 65 






/ 








11 66 






/ 








11 67 






/ 








1170 


4267 


4152 


B3DUMP , 


d I DUMP 






1171 


42 70 


03 70 


BbBASt . 


SYSeBLOCK 




1172 


42 71 


7 3 37 




BurFER+737 


/POINTER TO HEADER BLOCK LENGTH. MUST QE AT BBOINT 


1173 


42 72 


73 40 


BBOI NT . 


BUFFErr + 740 


/POINTS TO START OF CORE MAP IN HEADER BLOCK 


1174 






/ 








1175 






/ 








1176 






/ 








1177 






/ 








1200 






/ 








1201 


42 73 


00 00 


BBOU T , 








1202 


42 74 


1104 




TAD 


9FLA&2 


/MASS STORAGE OUTPUT??? 


1203 


4275 


7640 




SzfA CLA 






12 04 


4 2 7 6 


5301 




JMP 


. + 3 


/NO. 


12 05 


42 77 


47 76 




JM S I 


BbLT 


/YEP. GO 00 IT. 


1206 


43 00 


56 73 




JMP I 


BdOU T 


/AND RETURN , 


^ 0 Oil 


4 3 01 


72 01 




P G ME 




/IS THIS END OF INPUT??? 


lc.lv 




1 1 OP 




T A D 


BF 1 1 LD 


/(Br lLLU~////r 


1211 


43 03 


/6 40 




Sjf A CLA 






1212 


4 3 04 


5316 




JM P 


B88BBJ 


/Nul LNU, LHLLa UKIGIN AND r lELD SETTINGS, X 


1213 


43 05 


1140 




TAD 


BCOUNT 


lex** 


4 306 


4 5^0 




RO R6 




/KJIAIt. iNiU Luw UHULK Blfb ur AC. 


1^.1^ 


4 3 07 


00 24 




AND 


L77 




XC 10 




p / p 




AU XO U T 






1217 


4311 


1 1 40 




T aD 


BCOU NT 




12 20 


4312 


00 24 




AND 


L7 7 




12 21 


43 13 


45 75 




AU XO UT 




/nliTDllT PUC"(^1/C11M 

/UUI rU " LMLLfAb Un 


12 22 


4314 


4405 




LE ADER 






12 2 3 


4315 






PIP 




/blVL IKAILEK AND KETUKN TU rlP 


12 24 






/ 








1225 


4316 


1101 


O D Q O D i 


T A D 


BO EL 2 


/GET THE DELETE ZEROS SWITCH, 


X c c 0 


4317 






SNA CLA 




/lb IT NON rLHur 


1227 


43213 


53 24 




jM P 




/ITb tERO. OONT DELETE ZEROS. 


1 9 <0I 
Xc OkI 


**0C X 


XX ox 




TAD 


DATA 


JfCT TUC" riAT* Lirton 

/GLT THE. DATA WORD, 


X c 0 X 


4 322 


76 50 




SNA CLA 




/IS IT ifERO? 


12 32 


43 23 


56 73 




JMP I 


B8UU T 


/YEP. RETURN TO THE CALLER NOW, HERO DELETED, 


12 33 


43 24 


11 35 




TAO 


8FIELD 


/SEE IF IN SAME DATA FIELD AS BEFORE, 




4325 


70 41 




CIA 






1235 


4326 


1137 




TAD 


BOFIELO 


/? 


12 36 


43 27 


7 6 50 




SNA CLA 




/ ? 


12 37 


43 30 


5335 




JMP 


BBNl 


/YEP, DON T OU A NEW FIELD 


1240 


4331 


1135 




TAO 


BF lELO 


/GET THE FIELD 


xc**x 


4332 


1036 




TAD 


L700 


/PLACE ON TWO HIGH ORDER BITS, 


1242 


4333 


4575 




AUXOUT 




/AND OUTPUT IT. 


1243 


4334 


5342 




JM P 


8BNE WO 


/AND GO OUTPUT ORIGIN. 


1244 






/ 








12 45 


4335 


1136 


&BN1 . 


TAD 


SOLDO 


/IS IS LOCATlON+1? 


1246 


4336 


7040 




CMA 






1247 


4337 


1130 




TAO 


ORIGIN 


/SO THTA !T WOULO LOAD HERE ANYWAY. 


1250 


4340 


7650 




SNA CLA 






1251 


4341 


5352 




JMP 


6BN2 


/NEXT LOG. DON T DO A NEW ORIGIN 


1252 


4342 


1130 


BBNEWO* 


TAO 


ORIGIN 


/NEW ORG, OUTPUT IT ON SEQ. DEVICE 


1253 


4343 


4550 




R0R6 




/NOW PLACE IN RIGHT HALF OF A.C. 


1254 


4344 


0024 




AND 


L7 7 


/JUST 6 BITS 


1255 


4345 


1025 




TAO 




/PLACE ON ORIGIN BIT 


1256 


4346 


4366 




JMS 


80ADD 


/AND PUT OUT WITH A CHECKSUM 


1257 


4347 


1130 




TAO 


ORIGIN 


/GET THE ORIGIN 


1260 


4350 


0024 




ANO 


L77 


/JUST 6 BITS 



1261 


4351 


4366 




JMS 


t^OAUD 


1262 






/ 




12 63 


43:52 


1130 


8BN2 , 


TAD 


0^^ IG Ik 


12 6 4 


43d3 


31 36 




DCA 


BOLGD 


1 9 

AC O 3 


43 i>4 


1135 




TAO 


bfkld 


1266 


4 ,5 


3137 




OCA 




12 67 


4 3 b 6 


1131 




7 A 0 


OA I A 


12 70 


4 »i 5 7 


4550 




R0R6 




43 60 


00 24 




AiyjD 


L7 7 


12 72 


4361 


4366 




JMS 


BOADD 


12 73 




1131 




TAO 


OA TA 


12 74 


43 63 


0;^24 




AND 


L77 


1^: / 3 


43 64 


43 66 




JMS 


BO ADJ 


12 76 
1277 


436i? 


5673 


/ 


JHP I 


8B0UT 


130i} 






/ 






13 01 






/ 






1302 


4366 


0000 


80ADD. 


0 




1303 


4367 


33 70 




DCA 


TEMP3 


1304 


4370 


1070 




TAD 


TEMP3 


1305 


43/1 


1140 




TAD 


HCOUNT 


1306 


43 72 


3140 




DC A 


BCOUNT 


1307 


4373 


1070 




Tad 


TEMP3 


1310 


4374 


4575 




AUXOU T 


1311 


437i> 


5766 




JMP I 


30AD0 


1312 






/ 




1313 


43/6 


4061 


B8LT. 


aTAPE 




1314 






/ 




1315 






/ 






1316 






/ 






1317 






/ 






1320 






/ 






1321 






/ 






1322 






/ 






1323 






/ 






1324 








EJECT 





/A'4D OUTPUT IT roo 

/GtT Tne ORGn 

/A.^O c^AVL IT AaAY, 

/NOW RfclSET THE FIlED TOO 

/AND STaS A^AY 

/GET THE DATA 

/PLACE LEFT HALF IN RIGHT HALF FOR THE OUTPUT 
/ANiD ?UT IT OUT 
/NUw PUT I T OUT TOO 
AvOW EXIT 



/UPUATL bCOUNT 
/SEND IT ALONG 



1325 

1326 

1327 

1330 

13 31 

1332 

1333 

1334 

1335 

1336 

1337 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

14 00 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1420 

1421 

1422 

1423 



43 77 
4400 



4401 
4402 



4403 
4404 

4405 
4406 



4407 
4410 



4411 
4412 



0310 
0314 



0322 
4424 



3417 
3476 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

BINLST, 



/ 
/ 
/ 

BINGO, 



COMMON ROUTINES USED BY BINARY AND ASCII HANDLERS. 
THIS PAGE MAY OVERLAP OR UNOERLAP A LITTLE FRQH THE PREVIOU PAGE. 



34 74 
3420 



3513 
3526 



3524 
3>14 



4413 
4414 
4415 
4416 
4417 
4420 
4421 
4422 
4423 



4424 
4425 
4426 

4427 
4430 



0000 
4562 
4432 
4:?73 
4424 
4427 
5214 
2213 
5613 



0301 
0316 
4322 

4423 
4422 



/ 
/ 
/ 

BING02* 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

MORE, 



MANDM1» 

MANDM2, 

/ 

/ 

MAORN, 



310 
314 

ASMIFN RF08 

322 

4324 



BH IGH 
BLT 

ASMIFN RF08 

BLRF8 

BTTY 



6HIGH2 

8LT2 

ASMIFN RF08 

8LRFa2 

BTTY2 



/ 

MGOTO, 



DECODE 

MMORE 

SEARCH 

MAORN 

MGOTO 

JHP 

ISZ 

JMP I 



301 
316 
4322 

MANDH2 
MANOMl 



MORE-^l 

MOHE 

MORE 



/BINARY INPUT DEVICE LIST. " 
/"L" 

/DO WE WANT THE RF08 PRESENT 

/YES. "R" 

/"T" 



/HIGH SPEED READER 
/LINC TAPE 
/DISK? 
/YES. RF08 
/TELETYPE. 



H" 



/DISPLAYS A "MORE" MESSAGE. 

/DECODE A LINE 
/THATS OUR MESSAGE 
/LOOK UP THE ANSWER 

/JUMP TABLE 
/BAD REPLY. 
/NO MORE TAPES 
/EXIT. 



1424 4431 4423 MANDM2 

1425 / 

1426 / 

1427 4432 0200 MMOHE, L£rT*200 

1430 4433 0040 TOP=300 

1431 / 
14 32 / 

1433 / 

1434 / 

1435 ASMIFN CARD /CARD MESSAGE 

1436 ASMSKP 10 /THERE. GIVE CARD MESSAGE 

1437 / 

1440 / 

1441 TEXT "FMORE TAPES? 
1442 

1443 

1444 HN NO MORE TAPES 

1445 HR READ ANOTHER TAPE\" 

1446 / 

1447 / 

1450 / 

1451 / 

1452 / 
14 53 / 

1454 ASMir£ CARD /CARD READER NOT THERE? 

1455 ASKSKP 10 /SKIP OVER MESSAGE 

1456 / 

1457 / 
1460 4434 0615 
1460 4435 1722 
1460 4436 0540 
1460 4437 1116 
1460 4440 2025 

1460 TEXT "FMORE INPUT? 



1461 4441 2477 
14 61 

1462 4442 4340 

1462 

1463 4443 4340 
1463 4444 4310 
1463 4445 1640 
1463 4446 5555 
1463 4447 5540 
14 63 44 50 16 17 
1463 4451 4015 
1463 4452 1722 
1463 4453 0540 
1463 4454 1116 
1463 4455 2025 

1463 HN NO MORE INPUT 

1464 4456 2443 
1464 4457 1022 
1464 4460 4055 
1464 4461 5555 
1464 4462 4022 
1464 4463 0501 
1464 4464 0440 
1464 4465 1517 
1464 4466 2205 
1464 4467 4003 
1464 4470 0122 
1464 4471 0423 
1464 4472 4017 



1464 


4 4 7 3 


22 4io 










14 64 


44 7 4 


24 01 










1464 


44 75 


2005 










14 64 


44 76 


23 34 










1464 






HR --- 


HEAD MORE 


CARJS OR 


TA HE S\ " 


1465 






/ 








1466 






/ 








1467 






/ 








1470 






/ 








1471 






/ 








1472 






/ 








14 73 






/ 








1474 






/ 








14 75 






/ 








1476 






/ 








14 77 






/ 








130^ 






/ 








1501 






/ 








1502 


4477 


4551 


CEHR » 


D I SPLA Y 




/CHLCKbUn LKKOK UlbrLAT, 


1503 


4500 


4502 




CC ER R 






15 04 


4501 


52 77 




JM P 




/WAMP. ARniINn lliMTll A tD OR fP I** TYPFD 


1505 






/ 








1506 






/ 








1507 






/ 








1510 


45 


02i30 


b t ri n > 








1511 


45 03 






T no — XA a 






1512 


4504 


06 03 










1512 


4505 


1005 










1512 


4506 


0313 










1512 


45 07 


23 25 










15 12 


4510 


15 40 










1512 


45 11 


05 22 










1512 


4512 


2217 










1512 


4513 


22 34 










1512 








TC" V T 




r o o n n V M 


15 13 






/ 








1514 






J 
/ 








1515 






/ 








1516 






/ 








1517 






/ 








1520 






/ 








1521 


4514 


0000 


SET 1 , 


0 






1522 


4515 


7240 




MONE 




/Bur UOWN B" 1 


1523 


4516 


1122 




TAD 


FBNUM 


/GET FIRST BLCOK NUMgEn 


1524 


4517 


3342 




□ C A 


GEENUM 


/AND PLACE IN READ CALL. 


1525 


4520 


1120 




TAO 


FUN I T 


/GET T HE UNIT 


15 26 


4521 


3337 




OCA 


GUNl T 


/PLACE AHAY UNIT 


1527 


45 22 


72 40 




MONE 




/dLi 1 nt awl 1 bn 


1530 


4523 


3347 




DCA 


GCUNT 


/TO OVERFLOW FIRST TIME THROUGH 


1531 


4524 


5714 




JMP I 


SETI 


/RETURN 


1532 






/ 








1533 






/ 








15 34 






/ 








1535 






/ 








1536 






/ 








15 37 


4525 


0000 


GETI , 


0 




/GETS A CHARACTER FROM THE SYSTEM BUFFER. 


1540 


4526 


7200 




CLA 






1541 


452/ 


2347 




IS2 


GCUNT 


/IS BUFFER EXHAUSED? 


1542 


4530 


5343 




JMP 


GOK 


/NOPE. GET NEXT, 


1543 


4531 


1064 




TAO 


M400 


/YEP. RESET COUNRTE FOR A NEW BLOCK, 


1544 


4532 


3347 




DCA 


GCUNT 


/COUNTER RESET. 


1545 


4533 


1340 




TAO 


GPLACE 


/GET START OF BUFFER 


1546 


4534 


3346 




DCA 


GPLCE2 


/STORE AWAY, 



1547 45J5 2342 is<i GEENUM /BOP UP TO NEXT RtOCRD, 

lUSe 4>36 4:>7l READ 

1551 4537 0000 GUNIT, 0 /AND READ IT IN. 

1552 4540 6400 GPLACE, BUFFER 

1553 4541 0001 1 

1554 4542 0000 GEENUH, 0 

1555 4543 1746 GOK, TAD I GPtCE2 /GET WORD FROM SUFFER 

1556 4544 2346 IS2 GPLCE2 /BOP UP POINTER 

1557 4545 5725 JMP I GETI /EXIT 

1560 / 

1561 4546 0000 GPLCE2t 0 

1562 4547 01080 CCUNT, 0 /GCOUNT ALREADY USED ELSEWHERE 

1563 / 

1564 / 

1565 / 

1566 / 

1567 / 

1570 / 

1571 / 
15 72 / 

15 73 / 

1574 / 

1575 / 

1576 / 

1577 / 

1600 ASHir? RF08 /RF08 THERE? 

1601 ASMSKP 15 /NOPE. OONT ASSEMLE THIS CRAP. 

1602 / 

1603 / 

1604 4550 7417 ASUCOl. ASULPl /TRANSFER TABLES FOR SYS AND UNIT COPIES 

1605 4551 7427 ASUTTl 

1606 4552 7425 ASUOOl 

1607 4553 7417 ASUtPl 
1610 / 

16 U / 

1612 / 

1613 4554 7432 ASUC02i ASULP2 

1614 4555 7442 ASUTT2 

1615 4556 7440 ASU002 

1616 4557 7432 ASUtP2 

1617 / 

1620 / 

1621 / 

1622 / 

1623 / 

1624 / 

1625 / 

1626 / 

1627 / 

1630 / 

1631 / 

1632 4560 0000 NOSUCH. 0 /THIS ROUTINE DISPLAYS A UCVICE OVERFLOW MESSAGE 

1633 4561 4567 NO /ON THE SCREEN CONSISTING OF THE LETTERS N AND 0. 
16 34 / 

1635 / 

1636 / 

1637 / 
16 40 / 

1641 / 

1642 / 

1643 / 

1644 / 

1645 / 



1 A 4 A 






/ 








1 A 47 














1 ASfl 


43 62 


00 00 


ST AT RS I 






/IHio uA L 1 dK A 1 Lb UlbK Ir NUI OK. 


1 A (tl 


45 63 


Afll t9 
O0 Jc 








if ICAO *f* AMn TTv 

/uULAn AC AMU M T, 


1 A 

lo 


45 64 


1 * 7A 




T A n 


DV C7 A T 


/KtbLI 1 HL alAlub NUM. 


i A Ckt 


Afi. AS 


7A Aa 
/ D ^0 




S^A CLA 




/lo II cLKUr <N0 LXIHA UNITS StLECTtD>7 


16 1>4 


A<E> A A 

^9 DO 


A7 SI 
Of 91 




OCLA 




/NDPt. DO A CALlanATL. 


1655 






/ 








1656 


A7 


4551 


CT A T 1 D 

al AT Lr » 


01 Splay 




/DO SOME MORE DISPLAYING WHILE WAITING. 


1 Af« 7 


^9 /o 


Ok'J A t 
0C DO 




nA 1 l\iU I o 




ycAQ Tuc r»tc^ Tr> tier nCADw 
f\ Kin 1 Mt UialN lU HL KLAUi, 


lOOID 


AS 71 


67 41 








/DTAn tu CTATllC 


lOOl 


^ 9 / t 


7010 




p ^ ^ r» 




/onTATC Tft 1 1 hi ^ 


1662 


AS 7"^ 
^9 fO 


7A 9a 

/O£0 




SNL CLA 




/DONE . 


16 63 


AS 7A 
^9 /^ 


S7 AO 
9/ 0< 




IMO f 

Jnr t 


ST AT RS 


/V Co CY t T 


1664 


AS 7S 
^9 /9 


SX A7 
90 0/ 




JMP 


ST ATlP 


/NUrL. WAi » A «"(HlLt.« 


16 65 














1666 






t 
f 








i A A7 

10 0 / 






/ 








1 A 7a 

XO f B 


4576 


0000 


D|r CT AT . 


0 




yunon rno qtatiic armor i_n oorcrT 
/ MUriu rut aiAlUa OLrUnL l~U rK La t i ■ 


1 A 71 
lO /J> 






f 








1 A 79 
AO /« 






f 








1 ATI 
AO /O 














1674 






/ 








AO ' 3 






/ 








1676 






/ 








16 77 






/ 








1 700 








ASlil FN 


• ftl00 


/IF TMP ^fiiiii niT nN. A<;^rMni r in thp pact 


1 7 ai 

A / i0A 








r A i»t 






1 7019 






/ 








1703 






/ 








1704 






f 








A f 07 






f 








A f 0O 






f 








A/0/ 






f 








1 7 1 11 
A / A0 






f 








1/ AA 














A / Ac 






/ 








1 7 1 
A/ AO 


46 00 


0000 


CT AT CU 

a 1 A 1 av t 


t0 






1 71 A 
A / A^ 


46 idl 


6032 








/ri TAD Twr krvflnAon Awn lur at 

/LLLAn 1 ML rSLTDUAnU ANU IML AL« 


1711% 
1 / A7 


4602 


A7 TA 




(in Utrf 




/" L A U 1 1"! 1 ML U LU U U" n A v%\j "Lwl3 ILK, 


1 7 1 A 
A / AO 




02 06 




AND 


ST L6 


/I TAUr 1 Ai IIICT CvTOA liUITC DiTC 

/LLAVL IN JUaf tXiHA UNlTa oIia« 


1717 
A / A/ 


4604 


3607 




DC A I 


RK ST TP 


/Aun CAur AUAV Tur noiur ur>or nu 
/AiiU aAVL AKAT 1 ML Unl VL WL nt UM« 


1 7 911 

1/ ei9 


4605 


5600 




JMP I 


ST ATSV 


/OCTiiOM Ainu 
/KLiUHN NUN* 


1721 






/ 








1 799 
1 /CC 






f 








A / <w 






f 








1724 


4606 


0006 


STL6, 


6 






1725 


4607 


45 76 


RKSTTP, 


RKSTAT 




/ACCROSS PAGE POINTER. 


1726 






/ 








1727 






/ 








1730 






/ 








1731 






/ 








1732 






/ 








1733 






/ 








1734 






/ 








1735 






/ 








1736 






/ 








1737 






/ 








1740 






/ 








1741 






/ 








1742 






/ 








1743 






/ 








1744 






/ 









1745 / 

1746 / 

1747 / 

1750 / 

1751 / 

1752 / 

1753 / 

1754 / 

1755 / 

1756 / 

1757 / 
17 60 / 

1761 / 

1762 46 1ti 2240 BININP. lE:FT*240 

1763 46 11 3140 TOP=200 

1764 / 

1765 / 

1766 aSMIFN HFatt'CAf^O /OO WE haNT STANDARD MESSAGE??? 

1767 ASMSKP 12 /NOPE. DONT ASSEMBLE I.T IN... 

1770 / 

1771 / 

1772 TEXT -FINPUT DEVICE: 
1773 

1774 

1775 HH HIGH SPEED «EaOE« 

1776 HL LINC TAPE 

1777 HT TElETYPEN" 

2000 / 

2001 / 

2002 / 

2003 / 

2004 ASMIF2 RF08*1«CARO /DO WANT THE CARD READER BUT NO DISK? 

2005 ASHSKP 13 /YES. OONT ASSEMBLE THAT IN. 

2006 / 
2B07 / 

20X0 TEXT *FINPUT DEVICE: 

2011 

2012 

2013 C CARD READER 

2014 HH HIGH SPEED READER 

2015 L — LINC TAPE 

2016 T — TELETYPES 

2017 / 

2020 / 

2021 / 

2022 / 

2023 / 

2024 / 

2025 / 

2026 ASMIF2 CARD*l«Rra8 /ASSEMBLE FOLLO*<ING MESSAGE IF DISK BUT NO CARD READER. 

2027 ASMSKP 13 /SKIP OVER IT. 

2030 / 

2031 / 

2032 TEXT "F INPUT DEVICE: 
2033 

2034 

2035 HH HIGH SPEED READER 

2036 L — » LINC TAPE 

2037 R RF08,RK0a DISK 

2040 T — = TELETYPEX- 

2041 / 

2042 / 

2043 / 



2244 






/ 








/ 


2046 






/ 


2fc47 






/ 


20b0 








20!>1 








20 52 






/ 


2i}53 






/ 


2854 


4612 


0611 




2054 


4613 


1620 




2054 


4614 


2524 




2054 


4615 


4004 




2054 


4616 


0526 




2054 


4617 


1103 




2054 








2055 


4620 


0572 




2055 








2056 


4621 


4340 




2056 








20 57 


46 22 


43 40 




2057 


4623 


4303 




20 57 


4624 


40 55 




2057 


4625 


5555 




2057 


4626 


4003 




2057 


4627 


0122 




2057 


4630 


0440 




2057 


4631 


2205 




2057 


4632 


0104 




2057 






C 


2060 


46 33 


0522 




2060 


4634 


4310 




20 60 


46 35 


10 40 




2060 


4636 


5555 




2060 


4637 


5540 




2060 


4640 


1011 




2060 


4641 


0710 




2060 


4642 


4023 




2060 


4643 


2005 




2060 


4644 


0504 




2060 


4645 


4022 




2060 


4646 


0501 




2060 


4647 


0405 




2060 








2061 


46 50 


2243 




2061 


4651 


1440 




2061 


4652 


5555 




2061 


4653 


5540 




2061 


4654 


1411 




2061 


4655 


1603 




2061 


4656 


4024 




2061 


4657 


0120 




2061 






L 


2062 


4660 


05 43 




2062 


4661 


2240 




2062 


4662 


5555 




20 62 


4663 


55 40 




2062 


4664 


22 06 




2062 


4665 


6070 




20 62 


46 66 


54 22 




2062 


4667 


1360 




2062 


4670 


7040 




2062 


4671 


0411 




2062 






R 



ASMSKP 14 



/OO Hi bQTN OlSK AND CARD? 

/NOPE. \0T THib MESSAGE. 



TEXT 



"FINPUT device: 



CARD READER 



HIGH SPEED READER 



-» LING TAPE 



RFkJ8»RK08 disk 



2063 


4672 


2313 






2063 


4673 


4324 






20 63 


4674 


4055 






2B63 


4675 


5555 






2063 


46 76 


4024 






2063 


46 77 


0514 






2063 


4700 


0524 






2063 


4701 


3120 






2063 


4702 


0534 






2263 






T 










TELETYPEN" 


2064 






/ 




2065 






/ 




20 66 






/ 




2067 






/ 




2070 






/ 




2071 






/ 




2072 






/ 




2073 






/ 




2074 






/ 




2075 






/ 




2076 






/ 




2077 






/ 




2100 






/ 




2101 






/ 




2102 






/ 




2103 






/ 




2104 






/ 




2105 






/ 




2106 






/ 




2107 






/ 




2110 






/ 




2111 






/ 




2112 






/ 




2113 






/ 




2114 


4703 


0240 


BINOUT 


, LErT+240 


2115 


4704 


0140 




TOP;:200 


2116 






/ 




2117 






/ 




2120 






/ 




2121 








ASMIFN CARDlRr08 


2122 








ASMSKP 12 


2123 






/ 




2124 






/ 




2125 








TEXT "rOUTPUT DEVICE: 


2126 










2127 










2130 






HH 


HIGH SPEED PUNCH 


2131 






ML 


LINC TAPE 


2132 






HT 


TELETYPE\" 


2133 






/ 




2134 






/ 




2135 






/ 




2136 






/ 




2137 








ASMIF2 Rr08*l«CARO 


2140 








ASMSKP 13 


2141 






/ 




2142 






/ 




2143 








TEXT "FOUTPUT DEVICE 


2144 










2145 










2146 






HH 


HIGH SPEED PUNCH 


2147 






L — « 


LINC TAPE 



/DO WE 
/NOPE. 



WANT 
OQNT 



STANDARD OUTPUT DEVICES. 
ASSEMBLE THEM IN'. 



/DO WE WANT THE LINE PRINTER ROUTINES LOADED?? 
/DO NOT DISPLAY LINE PRINTER MESSAGES. 



i^lb0 






p — - 


LINE PRINTER 


2151 






T — - 


TELETYPES" 


2152 






/ 




2153 






/ 




2154 






/ 




2155 






/ 




2156 






/ 




2157 






/ 




2160 






/ 




2161 






/ 




2162 








ASMIFZ CARD*l«Rr08 


2163 








ASMSKP 13 


2164 






/ 




2165 






/ 




2166 








TEXT "FOUTPUT DEV: 


2167 










2170 










2171 






HH HIGH SPEED PUNCH 


2172 








LINC TAPE 


2173 






R — - 


RF0fa,RK08 DISK 


2174 






T — « 


TELETYPES" 


2175 






/ 




2176 






/ 




2177 






/ 




2200 






/ 




2201 






/ 




2202 






/ 




2203 








ASMIF2 CARD5RF08 


2204 








ASKSKP 14 


22 05 






/ 




2206 






/ 




22 07 


4705 


0617 






2207 


4706 


2524 






2207 


4707 


2025 






2207 


4710 


2440 






2207 


4711 


0405 






2207 


4712 


2611 






22 07 


4713 


03 05 






2207 








TEXT "FOUTPUT DEV 


2210 


4714 


7243 






2210 










2211 


4715 


4043 






2211 










2212 


4716 


4043 






2212 


4717 


1010 






2212 


4720 


4055 






2212 


4721 


5555 






2212 


4722 


4010 






2212 


4723 


1107 






2212 


4724 


1040 






2212 


4725 


2320 






2212 


4726 


0505 






2212 


4727 


0440 






2212 


4730 


2025 






2212 


4731 


1603 






2212 






HH -« 


- HIGH SPEED PUNCH 


2213 


4732 


1043 






2213 


4733 


1440 






2213 


4734 


5555 






2213 


4735 


5540 






2213 


4736 


1411 






2213 


4737 


16 03 






2213 


4740 


4024 







/DO WE WANT DISK BUT NOT PRINTER? 
/NOPE. SKIP OVER MESSAGE. 



/OO WE WANT BOTH PRINTER AND DISK? 
/NOPE. DONT ASSEMBLE IN THIS MESSAGE 



2213 
2213 
2214 
2214 
2214 
2214 
2214 
2214 
2214 
2214 
2214 
2214 
2215 
2215 
2215 
2215 
2215 
2215 
2215 
2215 
2215 
2215 
2215 
2215 
2216 
2216 
2216 
2216 
2216 
2216 
2216 
2216 
2216 
2216 

2217 
2220 
2221 
2222 
22 23 
2224 
22 25 
2226 
2227 
2230 
2231 
2232 
2233 



4741 0120 



LINC TAPE 



4742 
4743 
4744 
4745 
4746 
4747 
4750 
4751 
4752 

4753 
4754 
4755 
4756 
4757 
47 60 
4761 
4762 
4763 
4764 
4765 

4766 
4767 
4770 
4771 
4772 
4773 
4774 
4775 
4776 



0543 
2040 
5555 
5540 
1411 
1605 
4020 
2211 
1624 

0522 
4322 
4055 
5555 
4022 
0660 
7054 
2213 
6070 
4004 
1123 

1343 
2440 
5555 
5540 
2405 
1405 
2431 
2005 
3400 



LINE PRINTER 



R RF08,RK08 DISK 



X — . 

TEL£TYPE\" 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

EJ ECT 



2234 / 

22 35 / 

22 36 / 

22 37 / 

22 40 / 

2241 / 

2242 / 

2243 / CHAIN TQ ThE NEXT PART OF PIP 

2244 / 

2245 / 

2246 / 

2247 / 

2250 / 

2251 CHAIN "P1P4" 



0201 PHOOL 
m(S2 EJECT 



■* 



0003 / 

0004 / 

0005 / 
00 06 / 
ki007 / 

0010 / P 1 P 4 

0011 / 

0012 / 

0013 / 

0014 / 

fe5015 / THIS IS THE FOURTH PART OF PIP 

0016 / 

0017 / 

0020 / 

0021 / 

0022 / 

0023 / 

0024 / 

0025 / 

0026 / 

0027 / 

0030 / 

0031 / 
00 32 / 
0033 / 
00 34 / 

0035 / 

0036 / 

0037 / 

0040 / 

0041 / 

0042 EJECT 



0043 






/ 






6j0 4 4 






/ 






0045 








»5000 




0046 






/ 






0047 






/ 






0050 






/ 






0051 






/ 






00 52 






/ 






0053 






/ 






0054 






/ 






00 55 






/ 






00 56 






/ 






0057 






/ 






00 60 






/ 






0061 






/ 






00 62 






ASCI NP 


=B ININP 




0063 






ASCOUT 


= B INOUT 




00 64 






ASCLST 


= B INLST 




00 65 






asclto 


=ASCLST 




0066 






/ 






00 67 






/ 






00 70 






/ 






0071 






/ 






0072 






/ 






0073 






/ 






00 74 


5000 


4562 


ASCI I » 


DECODE 




0075 


5001 


4610 




ASCINP 




0 076 


5002 


31 02 




OCA 


BFLAGl 


007 7 


5 003 


310 4 




DCA 


BFLAG2 


0100 


50 04 


3140 




DC A 


BC OUNT 


0101 


500 5 


31 30 




DCA 


OR IG IN 


0102 


5006 


3135 




DCA 


BF lELO 


0103 


500 7 


3103 




DCA 


BOLOP 


01 04 


50 10 


30 73 




OCA 


CNTHL2 


01 05 








ASM! F2 


CARD-1 


0106 


50 11 


4616 




JMS 1 


ACRCHK 


01 07 


5012 


45 73 




SEARCH 




01 10 


50 13 


43 77 




AS CLST 




01 11 


5014 


51 74 




ASCGO 




01 12 


50 15 


52 00 




JMP 


ASCI I 


0113 






/ 






01 14 






/ 






0115 








ASMIF2 


CARD-1 


01 16 


5016 


3561 


ACRCHK 


, CROLTT 




0117 






/ 






0120 






/ 






0121 


5017 


2102 


ASCHl, 


IS2 


BFLAGl 


01 22 


50 20 


2102 


ASCII, 


1S2 


BFtAGl 


0123 


50iJl 


5233 




JMP 


APART2 


0124 






/ 






0125 






f 






0126 








ASMI FH 


RF08 


0127 








ASMSKP 


2 


0130 


5022 


4577 


ASRFa, 


DISC 




0131 


5023 


7410 




SKP 




0132 


5024 


4402 


ASCT , 


TAPE 




0133 


5025 


7201 




PONE 




0134 


5026 


3123 




DCA 


FWHAT 


0135 


5027 


7201 




PONE 




0136 


5030 


3121 




DCA 


FTYPE 


0137 


5031 


4563 




DIRECT 




0140 


50 32 


44 04 




HPUSH 




0141 






/ 







SOUR 



N D 



/SAKE DEFINITIONS AS BINARYCFOR NOW , ANYWAY) 



/GET THE INPUT REQUEST NOW 

/DISPLAY THE POSSIBLE INPUT DEVICES. 



/INITIALIE VARIOUS POINTERS AND COUNTS. 
/ASSEMBLE NEXT CHECK IF CARD READER DEISRED. 
/SEE IF ITS A "C" FOR THE CARD READER 
/SEARCH THE LIST FOR A GOOD OPTION 
/LIST OF GOOD CHARS 
/WHERE TO GO FOR THEM 
/NO LEGAL REQUEST THERE. 



/ASSEMBLE IN CARD POINTER IF CARD READER DESIRED. 
/CARD READER POINTER. 



//SET FOR HIGH SPPEED READER 
/SET FO R TTY 
/GO AND GET OUTPUT 



/DO HAVE THE DISK? 

/NOPE, SKIP OVER DISK INSTRUCTIONS 

/SET UP FOR DISK OPERATION 

/SET FOR TAPE OPERATION 
/SET TO INPUT AND SOURCE 



/LOOKUP UP NAME NOi^. 
/AND SAVE IT AwAY 



0142 biiJii 4302 APAHT2, UlCODE: 

0144 ^>C3i4 4/^J ASCOUT 

fe;i44 :?2it> ^iJ?^ SEARCH 

014!? b^i5 36 4v5 7 7 AS CL TO 

0146 b0i7 bi;7 MSC(iG2 

0147 AS IF if CArtO-l 
015)0 5>B40 4642 J^-ii 1 ASCL^T 

0151 b041 b^33 JM^^ APAht^ 

0152 / 

0153 / 

5J1^4 AS'^IF^ CAK:0-1 

0155 5765 ASCLPT, LPT2 

0156 / 

0157 / 

0160 504i 1^104 ASCH2, I S zf BFtAG2 

0161 5044 2104 ASCT2. ISi? dFLAG2 

0162 / 

0163 ASMirt RFJrt 
^164 ASMSKP 2 

0165 5045 45 77 A^«F82. QI SC 

0166 t>l546 7410 SKP 

0167 5047 4402 ASCTT* TAPE 

0170 5050 72k/l PONE 

0171 5051 3121 OCA FTYPE 

0172 5052 7240 ^^ONE 

0173 bliJ&3 11^2 TAO BFLAGl 

0174 5054 1104 TAD BrLAG2 

0175 5055 7710 SPA CLA 

0176 5056 5406 FILEC 

0177 5057 4566 PUSH 

0200 5060 4403 HFOP 

0201 5061 4762 J^S I A3£T I 

0202 5062 1104 TAO t3FLAG2 

0203 5063 7640 S^A CLA 

0204 5064 4405 LEADER 

0205 / 

0206 / 

0207 / 

0210 / 

0211 5065 6016 ANTAPE* 6016 

0212 5066 6032 6032 

0213 / 

0214 / 

0215 5067 1102 AlOOP. TAD BFLAGl 

0216 5070 7640 S£A CLA 

0217 5071 5274 JMP ,+3 

0220 5072 4763 JMS I AAGET 

0221 5073 7410 SKP 

0222 5074 4574 AUXIiNi 

0223 5075 0142 AND Ll77 

0224 5076 1026 TAD 

0225 5077 3121 OCA FTYPE 

0226 5100 1073 TAD CNTRLifi 

0227 5iai 7640 S£A Ci_ A 

0230 5102 5313 JMP AEND 

0231 5103 4573 SEAHCH 

0232 5104 5165 ACl 

0233 5105 5372 AGl 

0234 5106 4764 JMS I AALIMC 

0235 5107 5312 JHP ABAD 

0236 / 

0237 5110 4350 AOK» jMS APUTIT 
0240 5111 5267 Jt^P AlOOP 



/GfT vn: i.uTPuT OEvine 

/GO Tu I r PG r.TS 

/IS Li ^'-^i ^TLtN T-iF^U. V. Ti 

/CmECK IK *'P" TYPE'l A,-.;-) I\ITlALIi^E LlNEPHINTER. 

/M OT 4 GO no •'<LPLY 



/ASbEMf<Lr. \\ P^^ll^TER POINTER? 
/POrUFn ru CtiEuKLR A^^D INITIALIHER. 



/SET Tn HiGh OjTPUT 
/SET TO TTY OOTPUT 

/OO .ME HAVE THE DISK ROUrUJES? 
/;.OPl. :^^1P next T^O INSTRUCTIONS. 
/SET UP FOR DISK OPERATION 

/SET FOR A TAPE OPERATIQM. SHOULD THERE BE ONE. 
/SET FOR SOURCE MOOD. 



/IS IT MASS STORAGE TO MASS STORAGE. 
/???? 

/YEP. DO TRANSFER NOW. 
/SAVE OOTPUT FILE INFORMATION 
/BRING IN INPUT FILE INFORMATION 
/SET UP SEQUENTIAL TAPE INPUT 

/ARE GOING 10 TAPE 

/NO. WE BETTER GENERATE SOME LEADER NOW. 



/INITIALIZE THE HIGH SPEED READER 
/AND CLEAR THE TTY FLAG ANU THE AC, 



/GET THE INPUT DEVICE POINTER. 

/FROM A FILE? 

/NOPE. 

/YEP. GET A CHAR NOW 

/SKP OVER BELOv^ GET. 

/IF NOT FROM A FILE. GET THE CHAR NOW. AND Ll77 

/MAKE I^JTQ A GOOD ASCII CHARACTER. 

/WITH PARITY BIT ON. 

/AND STORE AhAY. 

/WAS A CONTROL I TYPED? 

/YEP. 00 END 

/SEARCH FOR POSIBLE SPECIAL CHARACTERS. 



/CHECK TO SEE IF IT S IN 240-337 LIMITS. 
/ IT ISN.T IGNORE IT. 

/CHAR OK AS IS. OUTPUTTIT. 
/GO BACK AND GET ANOTHER ONE. 



eiJ4i 






/ 














/ 








K243 


5112 


5267 


AH AD , 




AlOjP 


/HAO ChAs. get ..EXT 0:.E 


0244 






/ 








02 4& 






/ 








22 46 






/ 








B247 


t?113 


11Z2 


AENa , 


TaO 


HFLAGl 


/IS IT MASS INHJT? 


02S?0 


!?114 


7650 




S:-^A CLA 






0251 


5115 


532i6 




JHP 


AE^D2 


/YEP. IG\0"'E SI ABOARD PAPEH TaPE Cf^AP. 


0252 


5116 


4476 




^^S I 




/ASK FCK :-!QRE TAPES?? 


0253 


5117 


5265 




jyP 


A.viTaPE 


/HE S GUT ANOTHER TAPE. 


02 54 


5l2ii 


4334 


AE^D2, 


jxs 




/PLACE A C'^ IN I HE BUFFER. 


0255 




1372 




TAD 


a aBL An 


/GETE THE EOT-if CHAK 


02 56 


51 22 


31 21 




DC A 


r TY PI 


/A^D Pl«CE In The RUFFEf^ JMS APUTIT 


0257 


51*^3 


435^ 




JMS 


APiJl IT 


/PLACE IT OUT There 


02 60 


5124 


7240 








/IF LASS STOREAGE IT -mEVEH RETUHnS TO HERE 


0261 


5125 


3121 




OCA 


FTYPE 


/PLACE A RUBOUT Qh BUS 


0262 


5126 


4350 




JMS 


APUT IT 


/AND SE^U IT OJT 


02 63 


5127 


^334 




JMS 


ACf<fJ 


/DO ANi OTHER CaRRIGE RETURN. 


02 64 


5130 


44^5 




LE ADLH 




/THEN GENERATE iRAiLER 


0265 


5131 


5552 




PIP 




/ANiD FINALLY GO BACK TO PIP 


02 66 






/ 








0267 






/ 








02 70 






/ 








0271 






/ 








02 72 


5132 


4334 


ACH, 


JMS 


ACHR 


/COMES HERE IF A CR ENCOUNTERED, JMP 


0273 


5133 


5267 




JMP 


aluop 


/GET .vjEXT CHAR 


0274 






/ 








0275 






/ 








02 76 


5134 




ACRR * 


Z 




/GENERATES A CR.LF. RUBOUT 


0277 


5135 


1365 




TAD 


ACl 


/215 


0300 


5136 


3121 




DCA 


FTYPE 




0301 


5137 


4350 




JMS 


APUTIT 


/OUT GOES THE C R 


0302 


5140 


1144 




TAD 


M212 




0303 


5141 


70 41 




CIA 






0304 


5142 


3121 




DCA 


FTYPE 




0305 


5143 


4350 




JMS 


APUTIT 


/OUT GOES THE L F 


03 06 


5144 


7240 




MONE 






0307 


5145 


3121 




DCA 


FTYPE 




0310 


5146 


4350 




JMS 


APUl IT 


/OUT GOES THE RUBOUT 


0311 


5147 


5734 




JMP 1 


ACRR 


/RETURN 


0312 






/ 








0313 






/ 








0314 






/ 








0315 


5150 


0000 


APUT I T » 


0 




/SENDS A CHAR ALONG CORRECTLY 


0316 


5151 


1104 




TAD 


8FLAG2 


/WHERES IT GOING? 


0317 


5152 


7640 




Sit A CLA 






0320 


5153 


5356 




JMP 


. + 3 


/TO THE SEQUENTIAL DEVICE 


0321 


5154 


4761 




JMS I 


AAAP JT 


/PLACE IN MASS BUFFER. 


03 22 


5155 


5750 




JMP I 


APUT IT 


/AND RETURN 


0323 


5156 


1121 




TAD 


FTYPE 


/GET THE CHAR 


0324 


5157 


4575 




AUXOUT 




/GOOD BYE 


0325 


5160 


5750 




JMP I 


APUTIT 


/AND RETURN. 


0326 






/ 








0327 






/ 








0330 


5161 


5200 


AAAPUT , 


AAPUT 






0331 


5162 


4514 


ASETI, 


SET! 






0332 


5163 


5403 


AAGETi 


AAAGET 






0333 


5164 


1253 


AALIMC. 


GGLIMC 




/LIMIT CHECKER 


03 34 






/ 








0335 






/ 








03 36 






/ 








0337 






/ 









0340 


5165 


0215 


A 1 f 




0341 


51 66 


0300 






0342 




loo 0 / 






03 43 


51 70 


02 43 






03 44 








A S M I r if 


03 4tj 








24 4 


03 46 


m 71 


015 A7 




24 7 


03 47 


31 




AA oL AH » 


23 2 


03 b0 


51 /3 


AO 1 1 




4211 


0351 






f 




03 52 






/ 




03^3 










0354 






/ 
f 




03 55 






y 




03 56 


5174 


SC1 1 7 


A c rr n 


ASCH 1 


0357 


51 75 








0360 








ASM I FN 


0361 


5176 


50 22 




ASRF8 


0362 


51/7 


5020 




ASCTl 


0363 






/ 




0364 






/ 




03 65 






/ 




0366 






/ 




fe53 67 






/ 




0370 






/ 




0371 






/ 




0372 






/ 




0373 






/ 




0374 






/ 




0375 






/ 




0376 








EJECT 



TERMC-44 



/IS 44 A Lf:GAL CHAR??? 

/NO. ASSLMBLE INTO THE EXCEPTION TABLE, 
/END OF THE LIST 



RF08 



/DO WE HAVE DISK? 

/YEP. ASSEMBLE IN BRANCH 



0377 






/ 






THIS 


PAGE OVERLAPS A LUTlE FROM PREVIOUS PAGE. 


0400 






/ 










0401 






/ 










0402 






/ 










0403 






/ 






MORE 


OF THE ASCI I HAIMOLER . 








/ 










0405 






/ 










04 06 






/ 










0407 






/ 










0410 






/ 










0411 




0000 


AAPUT, 


0 








0412 




45 73 




SEARCH 






/CHECK F OK A SPECIAL CONTROL CHAR. 


0413 


5202 


5165 




ACl 






/SAME LIST IS OK. 


0414 


5203 


5470 




AG2 








0415 


5204 


1121 




TAO 


FTYPE 




/GET THE CHAR 


0416 


!?2 05 


1146 




TAD 


M240 






0417 


5206 


77 10 




SPA CLA 








0420 


t)207 


5220 




JMP 


AP 




/TOO SMALL. NOG A REGULAR CHAR. 


0421 


5210 


1121 




TAD 


FTYPE 






0422 


5211 


1147 




TAD 


M340 






04 23 


5212 


7700 




SMA CLA 








0424 


5213 


5220 




JMP 


AP 




/TOO BIG. IT S NO GOOD. 


04 2t> 


52 14 


1121 




TAD 


FTYPE 




/GET THE CHAR AGAIN 


0426 


5215 


0024 




AND 


L77 




/JUST THE LOW ORDER BUS. 


0427 


5216 


4253 


AAAl, 


JMS 


AAAAAA 




/PLACE THE CHAR IN THE BUFFER. 


0430 


5217 


5600 




JMP I 


AAPUT 




/AND EXIT 


0431 






/ 










0432 






/ 










04 33 






/ 










0434 


5220 


5600 


AP, 


JMP I 


AAPUT 




/BAD CHAR. 


04 35 






/ 










0436 


5221 


1365 


APCR, 


TAD 


AL43 




/CR FOUND. PLACE A "43" IN THE BUFFER 


0437 


5222 


5216 




JMP 


AA Al 




/STICK IN BUFFER 


0440 






/ 










0441 


5223 


1060 


AATAB, 


TAD 


L7 






0442 


5224 


1364 




TAD 


AL40 




/CONVERT TAB TO A 47 


0443 


5225 


5216 




JMP 


AAAl 






04 44 






/ 










04 45 






/ 










0446 






/ 










04 47 






AAEND. 


AS MI FN 


TERMC-44 




/IS 44 THE END OF FILE CHARACTER? 


0450 








ASMSKP 


2 




/NO. 2ER0 IS. IGNORE NEXT TWO STATEMENTS. 


0451 








PFOUR 






/DOLLAR SIGN IS THE END OF BUFFFR CRAP 


0452 








TAD 


AL40 




/MAKE IT INTO A DOLLAR SIGN 


0453 


5226 


4253 




JMS 


AAAAAA 




/AND PLACE EOF CHAR IN THE BUFFER. 


0454 


5227 


1354 




TAO 


AAAORG 




/SEE IF BUFFER IS WRITTEN OUT. 


0455 


5230 


7040 




CMA 








0456 


52^1 


0103 




AND 


eOLDP 




/BY CHECKING ENDING ADDRESS 


0457 


5232 


7650 




SNA CLA 








04 60 


5233 


5236 




JMP 


.♦3 




/BUFFER IS CLEAR AND WRITTEN OUT, 


04 61 


52 34 


4253 




JMS 


AAAAAA 




/BUFFER STILL IN USE. ADD 1 CHAR AND SEE IF 


0462 


5235 


5227 




JMP 


.-6 




/NOT DUMPED. WAIT. 


0463 


5236 


1353 




TAO 


AAUN IT 




/GET THE UNIT 


0464 


5237 


J120 




OCA 


FUNI T 




/AND FLACE AWAY 


0465 


5240 


1363 




TAO 


AABLOCK 




/GET THE FIRST BLOCK 


04 66 


5241 


3122 




OCA 


FBNUM 




/AND STASH AWAY. 


0467 


5242 


1363 




TAO 


AABLOCK 




/GET THE FIRST BLOCK 


0470 


5243 


/041 




CIA 








0471 


5244 


1356 




TAD 


aaoutb 




/ADD IN NEXT BLOCK TO GET SUE. 


0472 


5245 


3117 




OCA 


fSlil 




/AND STASH AWAY. 


04 73 


52 46 


7201 




PONE 






/SET FOR SEOURCE 


04 74 


5247 


3121 




OCA 


FTYPE 






04 75 


5250 


4404 




HPUSH 






/NOW STASH THIS AWAY FOR FILEC TO USE. 



04 76 


52 51 


45 65 








\dA 77 


52 52 


54 06 




! LEC 










/ 






01301 






/ 






Mb 02 






/ 






0503 






/ 






0b04 






/ 






0505 


5253 


.J «^ J /; 


AAAA AA , 


»' 




ia*7 06 


5254 


3132 




OCA 


t^lTEvPl 


0^07 


5255 


1135 




TAD 


aF IlLJ 


0510 


i?256 






SiK CLA 




0511 


5257 


5303 




JMP 


AA A 


0512 


526i^ 


2135 






BF UL j 


0513 


5261 


1363 




TAD 


AABLOCK 


0514 


52 62 


3356 




OCA 


AAOuTd 


0515 


5263 


1354 




TAD 


AAAOHG 


0516 


5264 


3103 




DCA 


BOLDP 


0517 


5265 


7240 




mone: 




0520 


526t) 


3130 




OCA 


ORIGIN 


0521 


5267 


1064 




TAO 


M4 00 


05 22 


52 70 


3134 




UCA 


BTEMP3 


0523 






/ 






0524 






/ 






0525 








ASMl FN 


STAR20-1 


0526 








ASMSKP 


13 


0527 






/ 






05 30 


52 71 


13 bl 




TAO 


A5262 


0531 


52 72 


35 03 




OCA I 


SOLOP 


05 32 


52 73 


2103 




iSi 


BOLOP 


0533 


52 74 


1362 




TAO 


A6043 


05 34 


52 75 


35 03 




OCA I 


BOLOP 


0535 


52 76 


21 03 




ISi 


BOLOP 


05 36 


52 77 


2134 






BTEMP3 


0537 


53 00 


2134 




ISH 


0TEMP3 


05 40 






/ 






0541 


5301 


1365 




TAO 


AL43 


0542 


5302 


3366 




DCA 


AL ASTC 


0543 






/ 






0544 


5303 


1132 


AAA* 


TAO 


BTEMPl 


0545 


5304 


7041 




CIA 




0546 


5305 


1365 




TAO 


AL43 


0547 


5306 


7640 




S£A CLA 




0550 


5307 


5315 




JMP 


, + 6 


0551 


5310 


1366 




TAO 


ALASTC 


0552 


5311 


7041 




CIA 




0553 


5312 


1365 




TAO 


AL43 


0554 


5313 


7650 




SNA CLA 




0555 


5314 


5653 




JMP I 


aaaaaa 


0556 


5315 


1132 




TAO 


BTEMPl 


0557 


5316 


3366 




OCA 


ALASTC 


0560 


5317 


2130 




IS2 


ORIGIN 


0561 


5320 


5330 




JMP 


AAA2 


0562 


5321 


1132 




TaO 


BTEMPl 


0563 


5322 


7006 




RTL 




0564 


5323 


7006 




RTL 




0565 


5324 


7006 




RTL 




0566 


5325 


0053 




AND 


L7 700 


0567 


5326 


3503 




OCA i 


BOLOP 


05 70 


53 27 


56 53 




JMP 1 


AAAAAA 


0571 






/ 






0572 


5330 


7240 


AAA2, 


MGNE 




k3573 


5331 


3130 




DCA 


OR IG IN 


05 74 


53 32 


1132 




TAO 


BTEMPl 



/h EG L r T ht 0 u'T T U\ IT C ON f I GU AK Ta T I ON . 
/AMD L)J A OlrtCTj^y TYPE COPY. 



/PLACES HALF A CHAR IH ThL PUFFER. 

/Fh^ST TIxE Th-JQUGH? 

/NOPE. I GNORl bETUP 
/SET SwHCH 

/GET STAHT OF Hl.'viARY CKAP. 
/AND SET UP t^RlTE BLOCK. 
/GET THE LOCATION OF STAHT 
/AMD SAVE I.N THE ADDRESS 

/SET THE SWITCH TO PLACE IN LEFT HALF OF^O'^0. 

/SET ThE ^ORD C0U:4TER 

/TO 400 k.0H0S TO GO I »l BUFFER. 



/OO WE WArvT TO STICK IN A "*20" AT BEGINNING OF FILE??? 
/NOPE. OOrvT ASSEMBLETHEM IN, 

/GET A "»20" ANiO PLACE IT 

/IN FIRST TWO WORDS OF FILE. 



/BOP UP THE IN POINTER. 

/INCREMENT THE BUFFER COUNTER BY 2. 

/TELL BUFFERS WE JUST PUT A "43" IN IT. 
/8Y PLACING IT IN LAST CAR INSERTED. 

/GET THE CAR 

/IS IT A 43 

/NOPE. IiMSERT IT 
/GET PREVIOUS CHAR 

/W^S IT ALSO A 43 

/YEP. IGNORE ir. 
/UPDATE OLD CHAH 

/TEST LEFT OR RIGHT SWITCH 
/RIGHT HALF 
/LEFT HALF 



/PLACE i;. LEFT HALF OF WORD 
/AND STASH AWAY. 
/AND EXI T NOW. 



/RESET HALF S^v I TCI . 

/PLACE I;m right HALF OF WORD. 





5333 


-^^2^ 




ANO 


L 7^ 




fcJ!?76 


53 34 


15^3 




TAu I 






0;>77 


5335 


3:?03 




Di;A I 




/AND ^lace: it aa ay . 


0600 


5336 


21.-^3 








/That kLl> 


0601 


53 3 7 


70^^ 




NOP 




/Th13 Ca\ skip if f?UFFEj^ = 74i:^ 


0602 


534^ 


^l 34 




isi 


BTlMP3 


/1 :4C-^^^'t ,T thl cou\tlk. all 00 NE i^ITh 




5341 


5653 




JMP I 


AA AA AA 


/'vGPE. '?jFFf, H STILL GOOD. 


13604 


5342 


1354 




TAO 


AA AOr^G 


/oUFFtr^ fULL. -^tlSET POIMTER. 


0601? 


5343 


3103 




QCA 


BOLDP 




0606 


5344 


liJ 64 




TAD 


M40i^ 




5^607 


5^45 


3134 




OCA 


BTLMH3 


/RESET CuUNTErJ. 


0610 


5346 


1356 




TAO 


AAOul d 


/GET THE CUTPUl BLOCK 


0611 


53 4/ 


1367 




TAD 


AALIM 


/^ILL IT EXCEED WORKING AREA? 


0612 


5350 


7650 




SNA CLA 






0613 


5351 


4567 




\0 




/YEP, IT WILL. GIVE ERROR ^-^ESSAGE. 


0614 


5352 


4!? 72 




ITE 




/l^HITE OUT FULL BUFFER. 


0615 


5353 


0001 


AAUN IT . 


SY SB IN 






0616 


5354 


64 00 


AAAOMG. 


BUFFER 






0617 


5355 


0301 




1 






0620 


5356 


^000 


AAOUTB , 








0621 


5357 


23 56 






AAOUTB 


/BUR UP taLOCK 


06 22 


5360 


b653 




JHP I 


AA AA AA 


/AND EXIT 


0623 






/ 








0624 






DSYS4SAAUNI T 






062b 






/ 








0626 






/ 








0627 








ASMI FN 


ST AR23~1 


/DO WE WA^T THE "»20" LITE^^AlS IN??? 


0630 








ASMSKP 


3 


/NOPE. DON T PUT THEM IN. 


0631 






/ 








0632 


5361 


5262 


A5262, 


5262 






0633 


5362 


6043 


A6043, 


6043 






0634 






/ 








063b 


5363 


0370 


AABLOCK 


. SYSBSLOCK 




06 36 


5364 


0040 


AL40, 


40 






0637 


5365 


20 43 


AL43 , 


43 






0640 


5366 


^000 


ALASTC , 


0 






0641 


5367 


7310 


AALl M, 


-sysht- 


1 


/MAXIMUM SUE OF THE WORKSPACE. 


06 42 






/ 








06 43 






/ 








0644 






/ 








0645 






/ 








0646 






/ 








0647 






/ 








06 50 






/ 








0651 






/ 








0652 






/ 








06 53 






/ 








0654 






/ 








0655 






/ 








0656 


5370 


!5132 


AGli 


ACR 






06 57 


5371 


5112 




ABAD 






0660 


5372 


5112 




ARAO 






06 61 


5373 


5112 




ABAD 






i£662 








ASMI F2 


TERMC-44 


/SHOULD WE IGNORE DOLLAR SIGNS? 


06 63 








ABAD 




/YEP. ASSEMBLE IN THE POINTER 


0664 


5374 


5112 




ABAD 






0665 


5375 


5113 




AEND 






0666 


5376 


5110 




AOK 






0667 






/ 








0670 






/ 








06 71 






/ 








0672 






/ 








06 73 






/ 









06 74 / 

06 75 / 

06 76 5377 50 43 ASCG02» ASCH2 

0677 5400 5047 ASCII 

0700 ASMIFN Rf0a /DISK THERE? 

0701 5401 5045 ASRFttS /YEP. 

0702 5402 5044 ASCI2 

0703 / 

0704 / 

0705 / 

0706 / 

0707 / 

0710 / 

0711 / 

0712 / 

0713 / 

0714 / 

0715 / 

0716 / 

0717 / 

0720 / 

0721 / 

0722 / 

0723 / 

0724 EJECI 



07i^5 






/ 




MORE 


ASCII HANDLERS 


0726 






/ 








0727 






/ 


kHlCH OVERLAP SOME MORE FROM THE PREVIOUS PAGE. 


0730 






/ 








0731 






/ 








0732 






/ 








0733 






/ 








0734 






/ 








0735 






/ 








0736 






/ 








0737 






/ 








0740 






/ 








0741 






/ 








0742 






/ 








0743 






/ 








0744 






/ 








0745 






/ 








07 46 






/ 








0747 


5403 


0000 


AAAGET » 


0 




/MAIN BUFFER GETTER ROUTINE 


0750 


5404 


7200 




CLA 






0751 


5405 


1135 




TAD 


BFIELD 




0752 


5406 


7640 




S2A CLA 




/ARE WE ACTIVE? 


0753 


5407 


5215 




JMP 


AAGET2 


/YEP. IGNORE NEXT. 


0754 


5410 


2135 




IS2 


BFIELD 


/SET STATUS SWITCH 


0755 






/ 








0756 








AS Ml FN 


STAR 20-1 


/DO WE WANT TO SKIP PAST A "•20" 


0757 








ASMSKP 


3 


/NOPE. NO #20 SKIP. 


07 60 






/ 








0761 


5411 


4644 




JMS 1 


AGETl 


/GET A WORD 


0762 


5412 


4644 




JHS I 


AGETl 


/GET TWO WORDS (BYPASS "•20") 


0763 






/ 








0764 


5413 


7240 




MONE 






0765 


5414 


3130 




OCA 


OR IG IN 


/ LEFT HALF OF WORD CHAR. 


0766 






/ 








0767 


i>4l5 


2130 


AAGET2» 


ISH 


OR IG IN 


/WHICH HALF? 


0770 


5416 


5224 




JMP 


AAGET3 


/RIGHT HALF . 


0771 


i54l7 


4644 




JMS I 


AGET I 


/GET A WORD. 


0772 


54 20 


3103 




DCA 


BOLOP 


/AND STASH AWAY 


0773 


i)421 


1103 




TAD 


BO LOP 


/RETURN ^IJH ITS VALUE. 


07 74 


54 22 


4550 




R0R6 




/SHIFT LEFT HALF OF AC TO THE RIGHT 


0775 


5423 


5227 




JMP 


AAGET4 


/GO DOWN AND GET REST. 


07 76 






/ 








0777 


5424 


7 2 40 


AAGET3, 


MONE 






1000 


54 25 


3130 




DCA 


OR IG IN 


/RESET RIGHT-LEFT SWITHC. 


1001 


5426 


1103 




TAD 


BOLOP 


/GET THE RIGHT CHAR 


1002 


5427 


0024 


AAGET4, 


AND 


L7 7 


/JUST GET 6 BITS 


1003 


;?430 


3121 




DCA 


FTYPE 


/STORE AWAY. 


1004 


5431 


4573 




SEARCH 




/CHECK FOR A NO NO, 


1005 


5432 


5460 




AAGLl 






1006 


5433 


5464 




AAGOl 






1007 


5434 


1121 




TAD 


FTYPE 




1010 


5435 


10 56 




TAD 


M40 


/F IGURE OUT CORRECT 81 T 4 


1011 


5436 


7510 




SPA 




/>40. A 20 0 TYPE CHARACTER 


1012 


5437 


1025 




TAD 


L100 


/<40 A 300 TXPE CHAR, 


1013 


5440 


1224 




TAD 


AAGET3 


/ADD IN 240 (ACTUALLY /240) 


1014 


5441 


02 43 




AND 


A377 


/JUST MAKE IT6 BITS 


1015 


54 42 


56 03 




JMP I 


AAAGET 


/AND EXIT. 


1016 






/ 








1017 






/ 








1020 


5443 


0377 


A377 , 


377 






1021 


5444 


4525 


AGETI, 


GETI 






1022 






/ 








1023 






/ 









ltJ24 

lB2t? 

1026 

10 27 

1030 

1031 

1032 

10 33 

1034 

1035 

1036 

1037 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

10t?0 

1051 

1052 

1053 

1054 

1055 

1056 

10 57 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1103 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1120 

1121 

1122 



5445 1143 

5446 7041 

5447 5603 



5450 
5451 
5452 
54 53 

5454 
5455 
5456 
5457 



7201 
1054 
1026 
56^3 

73ti5 
1061 
1^526 
5603 



5460 0000 



5465 
5466 
5467 

5470 
5471 
54 72 



AACR. 



AAAT AB I 



/ 

AAAEND f 



/ 
/ 
/ 
/ 
/ 

AAGL1» 



5461 0043 

5462 0047 

5463 4037 



5464 5454 



5445 
54^0 
5404 

5221 
5220 
5220 



/ 

AAGOl . 



5473 5220 

5474 5220 

5475 5226 

5476 5223 



5477 0200 
5500 0100 



/ 

AG2» 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

ABDI S, 



M215 



AAAGET 



L10 
L2C^»3 
AA AGlT 



L3fc; 

L200 

AAAGET 



TERMC-44 



TAO 
CI A 
JMP 1 

POME 

TAD 

TAO 

JKP I 

PTWO 
TAD 
TAO 
JMP 1 



0 

ASMIF2 
44 
43 
47 

4037 



ASMIFN TERMC-44 
AAAENO 

ASMIF2 TERMC-44 
AAAGET+1 

ASMIFN TERMC-44 

AAAEND 

AACR 

AAATA8 

AAAGET+1 



APCR 

AP 

AP 

ASMIF2 
AP 
AP 
AH 

AAEND 
AATAB 



/CARRIGE RETURN 



/EXIT WITH A CONTROL Z IN THE AC. 



/IS 44 THE END OF FILE CHAR? 

/YEP. ON 44 GO TO THE CONTROL Z GENERATOR. 



/END OF LIST 



/00 IS THE END OF FILE CHARQACTER. 

/44 (DOLLAR SIGN) IS THE TERMINATOR. 

/IS DOLLAR SIGN LEGAL? 

/NOPE. IT S THE END OF FILE CHAR. 



TERMC-44 



/ASMEBLE IGNORE CHARACTER IF DOLLA.R IS THE END OF FILE CAHR. 



LEFT+200 
TOP=240 

ASMIFN REMAKE1RF08 
ASMSKP 5 

TEXT "FAUXILIARY 



ZOO »vE ^ANT REMAKE OPTION OR THE DISK? 
/YEP. SKIP NEXT MESSAGE. 
OPTIONS: 



1123 HC -«» CGPV bPECIFED BlOCkS 

1124 HD Duplicate, tapl ? o.viTo i\" 

1125 / 

1126 / 

1127 / 
Il3i3 / 

1131 / 

1132 ASMIF£ REMAKE /DO aL waM Hty.AKE MLS SAGE? 

1133 ASMSKP 6 /YEP. PUT IN MESSAGE. 

1134 TEXT "FAUXlLlAHY QPTIOrviS: 
1135 

1136 

1137 HC COPY SPECiriED BLOCKS 

1140 HD — Duplicate tape a onto i 

1141 HR REFORMAT FltEX" 

1142 / 

1143 / 

1144 / 

1145 / 

1146 / 

1147 / 

1150 / 

1151 / 

1152 / 

1153 / 

1154 ASMIF£ RF08 /DO W£ WANT THE RF38 0PT10?^S. 

1155 ASKSKP 6 /NOPE. DON T PUT IN THE MESSAGE. 

1156 / 

1157 / 
1160 5501 0601 
116i3 5502 2530 
1160 5503 1114 
1160 5504 1101 
1160 5505 2231 
1160 5506 4017 
1160 5507 2024 
1160 5510 1117 
1160 5511 1623 

1160 TEXT "FAUXILIARY OPTIONS: 

1161 5512 7243 
1161 

1162 5513 4043 
1162 

1163 5514 40 43 
1163 5515 0340 
1163 5516 5555 
1163 5517 5540 
1163 5520 0317 
1163 5521 2031 
1163 5522 4023 
1163 5523 2005 
1163 5524 0311 
1163 5525 0611 
1163 5526 0504 
1163 5527 4002 
1163 5530 1417 
1163 5531 0313 

1163 C — « COPY SPECIFIED BLOCKS 

1164 5532 2343 
1164 5533 0440 
1164 6534 5555 
1164 5535 5540 
1164 5536 0425 



1164 
1164 
1164 
1164 
1164 
1164 
1164 
1164 
1164 
1164 
1164 
1165 
1165 
1165 
1165 
1165 
1165 
1165 
1165 
1165 
1165 
1166 
1166 
1166 
1166 
1166 
1166 
1166 
1166 
1166 
1166 

1167 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1200 
12131 
1202 
1203 
1204 
1205 



5537 


2014 


55 40 


1103 


5541 


0124 


5542 


05 40 


5543 


2401 


5544 


2005 


5545 


4060 


55 46 


4017 


5547 


1624 


5550 


1740 


5551 


6143 


5552 


2340 


5553 


5555 


5554 


5540 


5555 


0317 


5556 


2031 


5557 


4023 


5560 


3123 


55 61 


2405 


5562 


1543 


5563 


2540 


5564 


5555 


5565 


5540 


5566 


0317 


5567 


20 31 


5570 


4025 


5571 


1611 


5572 


2434 



DUPLICATE TAPE 0 ONTO 1 



S — • COPY SYSTEM 



U - 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



COPY UNIT\" 



EJECT 



1206 






/ 








1207 






/ 








1210 






/ 








1211 






/ 








1212 






/ 








1213 








«5600 






1214 






/ 








1215 






/ 








1216 






/ 








1217 






/ 








1220 






/ 




THIS IS THE 


ABSOLUTE BLOCK HANDLER 


1221 






/ 








1222 






/ 








1223 






/ 








12 24 






/ 








122o 






/ 








1226 






/ 








1227 






/ 








1230 






/ 








1231 






/ 








1232 






CINPUT 


=ASCrNP 




/SAME AS SOURCE INPUT(FOH NOW) 


1233 






COUTPUTsASCOUT 




/SAME AS SOURCE FOR NOW, 


12 34 






/ 








123t) 






/ 








1236 






/ 








1237 


5600 


4562 


ABSOL » 


DECQDf 

w u w U wti 




/GIVE THE MFSSAGF ANPI WATT FPIR L RFPJ Y 


1240 


5601 


5477 




A6DIS 




/ABSOLUTE DISPLAY CRaP, 


1241 


56152 


1120 




TAD 


FUNI T 


/GET THE NUMBER OF ADDITION AL UNITS. 


1242 


5603 


0060 




AND 


L7 


/ONLY 3 GOOD BITS ALWLOEO. 


1243 


t?604 


7450 




SNA 




/WAS IT ziERO? 


1244 


5605 


7201 




PONE 




/YEP, MAKE IT INTO A ONE. 


1245 


5606 


/041 




CIA 




/COMP TO SET UP COUNT 


1246 


5607 


3365 




DC A 


A8STMP 


/AND STORE AWAY IN COUNTER SET, 


1247 


5610 


4573 




SEARCH 




/LOOKUP THE RELYP. 


1250 


5611 


5755 




ABLl 






1251 


5612 


5761 




ABGl 






1252 


i>61i 


5<i00 




JMP 


ABSOL 


/ILLEGAL REPLY. 


1253 






/ 








12 54 






/ 








1255 






/ 








12 56 






/ 








1257 


5614 


3103 


DUP, 


DCA 


INUNIT 


/COPIES 0 TO 1 OR MORE TAPES. 


1260 


5615 


3102 




OCA 


IN6L0CK 


/SET UP INPUT UNIT AND BLOCK TO 0« OUTPUT 


1261 


5616 


3104 




DCA 


outblock 




1262 


5617 


7201 




PONE 






1263 


5620 


3105 




DCA 


OUTUNIT 


/SET THE OUTPUT UNIT TO 1 


1264 


5621 


7332 




CLA cut 


CML RTR 


/2000 


1265 


5622 


7010 




RAK 




/1000. A 100k5 BLOCK COPY. 


1266 


5623 


3117 




DCA 


FSI2E 


/SET UP SI^E. 


1267 


5624 


1365 




TAD 


ABSTMP 


/RECALL THE NUMBER OF COPIES TO MAKE 


1270 


5625 


3106 




DCA 


OUTN UM 


/AND SAVE IN THE COPIER PARAMETER TABLE. 


1271 


5626 


4554 




COPY 




/THEN GO DO OCPY, 


1272 


562/ 


5552 




PIP 




/RETURN TO PIP WHEN DONE 


1273 






/ 








12 74 






/ 








1275 






/ 








1276 


5630 


4562 


ACOHY, 


DECODE 




/GET THE INPUT DEVICE AND BLOCK NUMBER. 


12 77 


56 31 


4610 




CI NPUT 




/FROM THE COPY INPUT CRAP, 


1300 


5632 


4573 




SEARCH 




/LOOK-UP ^^ePLY. 


1301 


5633 


4^77 




ACPLl 




/INPUT LIST 


1302 


5634 


5674 




ACPGl 




/GO TO LIST 


1303 


5635 


5230 




JMP 


ACOPY 


/NO GOOD REPLY FOUND 


1304 






/ 









lsJ05 






/ 








1326 






/ 














/ 








lJli8 






/ 








1311 






/ 








1312 








ASM I F £ 


HF l^;6 


/ J 1 S K V 


1313 










2 


/\Q 01 S< hAIvOlE^S ThE-^E, 


1314 


t?636 


457 7 


AC OP R » 


D I SC 




/SET 'jP f 0^ JISK 


1315 


56 37 


/4 10 




SK P 






1316 


564»a 


44ii32 


ACOP Ti 


TAPE 




/bLl Ur rjK lA rt. 


1317 


56 41 


11 20 




Ta D 


FU N I T 




1320 


5642 


31 03 




DC A 


INUi'i I T 


y ■' (~ T ' i O T i L' T \t l; i { T ' » \i T T \i O]*- 

/dL! Or- IHL liNfrUI Ui'J 1 1 i\i UW , 


1321 


5643 


4566 




Push 




/SAv THE bicE oLCuASt UEtuUL nibn rAr 


U2l 


56 44 


4304 




JMS 


AGETN 


/bET The SIAKTI«\<C> tjLuCK MJ^bEn, 


13 23 


564i? 


52 3 0 




JMP 


ACOP Y 


/NOT All legal numbers. 


1324 


5646 


li31 




T AO 


AG NU M 


/GEI THE gLuLK "JUMdtK 


1325 


56 47 


31 02 




DCA 


I NBL OCK 


/ANO SAVE Ah AY, 


1326 


5650 


4562 


AC0PY2 . 


OaCGOE. 




/GET THE OUTPUT DEVICE 


1327 


5651 


4703 




CO UT Pu T 




/DISPLAY CHOICES 


1330 


5652 


4573 




SE Ar^CH 




/LOOK UP THE WLrLY 


1331 


5653 


43 77 




AC PL 1 






1332 


5654 


5 7 00 




AC PG 2 






13 33 


56 55 


52 50 




JM P 


AC OP Y2 


/NOT A LEGAL ritPLY 


1334 






/ 








13 3d 






/ 








1336 






/ 








1337 






/ 








1340 






/ 








1341 








AS M I Fc 


RF0O 


/(J I S K f 


1342 








ASMS aP 




/ N u r c , 


1343 


56 56 


43 77 


k r C\D Q 'J 


n I r 
U 1 0 u 






1344 


5 657 


7410 




C k o 






13 45 


Sit* AM 


44 02 


AC no T3 . 


T A PF 




/=iFT IJP FOR TAPE 


1346 


70 Ol 






1 AU 


FU N I T 


/r,FT TmF ('ORRFCT OUTPUT UNIT 


1347 


56 62 


3105 




DCA 


UU 1 U N 1 1 


/ f^NU biADn AWAT, 


I3i?0 


56 63 


4304 




jMS 


AGETN 


/rcT Ti-ir ui npk i\jiiMsri5 

/bLl i nL DLUur\ iNUnDLP\» 


1351 


5664 


5250 




JM P 


AC OP Y2 


/inU! a LLbbAL IMUnbLn 


13:?2 


5665 


1331 




TAD 


AGNUM 


/bLf Int. oiftnlliVkj DLUUr\ 


1353 


5666 


3104 




OCA 


OUTBLOCK 


/ A Nipi Q T A Cw A U A Y 
/Ai\U oiAon AWAT, 


13t?4 


5667 


45 65 




POP 




/rtLolUnt IML DlcL Ur inc UUrT, 


13 55 


56 70 


13 65 




TAD 


abstmp 


/HLLALL IHL NUnoLH Ur LUrlLo lU nA!\L 


1356 


56 /I 


3106 




DCA 


OUTNUM 


/A imU b a V L i n 1 nL L ur T rA KA rIL I L r\ 


1357 


5672 


45 54 




COPY 




/ANU DU IT. 


1360 


5673 


5552 




PIP 






1361 






/ 








1362 






/ 








1363 






/ 








1364 






/ 








1365 






/ 








1366 






/ 








1367 






/ 








1370 






/ 








1371 








ACPL1=BINLST 




1372 






/ 








1373 


5674 


5630 


ACPGl, 


ACOPY 




/ILLEGAL REPLY 


1374 


56/5 


56 40 




AC OPT 




/LINC TAPE 


1375 








ASMI FN 


RF08 


/DISK? 


1376 


56 76 


5636 




ACOPH 




/YES. DISK 


1377 


5677 


5630 




ACOPY 




/ILLEGAL 


1400 






/ 








1401 






/ 








1402 






/ 








1403 


5700 


5650 


ACPG2, 


AC0PY2 




/ILLEGAL 





57i;i 


50 6 J 




ACOH T2 












AS r \ 






57 iJ2 


P656 




AC OF ►''2 




1 4 j 7 


57 i' 3 






Au OP Y2 




1*1 IS 






/ 












/ 






1 4 1 2 


5 ; '4 




AG T N , 














i_ I 'jC 




14 14 








L^OJE 




1415 


1 / </6 


i^5i3 01 




bE T I 


1 


1416 


17 2 7 


6123 




F \ A £ + 


6^'0;? -1 


1417 


171i3 


536 4 k: 








14 28 


1/11 


5/31 




C 




14 21 


1712 






SE T I 


2 


14 22 


1713 


7 7 72 




-5 




14 23 


1714 


13 21 


AA LO OP » 


lDH ! 


1 


14 24 


l7 15 


14 2iu 




bM D I 






17 16 


77 77 




77 77 




1426 


1/1/ 


7 7 o ld 




jM P 


ALD 


1427 


1725! 


11 2t 




AlA I 




14 3ii 


1/21 


/ / 2iC- 




-5 7 




14 v5 1 


17 22 


^451 




APO 




14 32 


1/23 


7 7 52 




JMP 


AALL 


14 33 


17 24 


112t! 




AC A I 




14 34 


1/23 


7/60 




-11 




143t) 


1726 


a4 71 




APO I 




14 36 


1/2/ 


7/52 




JMP 


AAlL 


1437 


1 73k5 


1 •32 




LDA I 




17 31 




AGNUM* 






14 41 


1 7 32 


y 2 43 




ROL 


3 


14 42 


1 / 33 


156ii5 




BL'L I 




14 43 


1734 


ii}*307 




7 




14 44 


1 7 35 


5 7 31 




ST C 


AGNUM 


14 4i> 


1736 


13^)1 




LDH 


1 


14 46 


17 37 


11 2ii 




ADA I 






17 40 


7717 




•60 




14 50 


17 4 1 


3/31 




ADO 


AGNUM 


14t>l 


17 42 


0470 




A2£ I 




14 S2 


1743 


0011 




CLR 




14133 


1744 


5731 




SIC 


AGNUM 


14 54 


17 45 


02 22 




XSK I 


2 


14 55 


1746 


77 14 




JMP 


AAlOOF 


14 56 


1/4/ 


7/52 




JMP 


AALL 


14 57 






/ 






1460 






/ 






1461 






/ 






1462 






/ 






1463 


175i4 


0002 


ALD, 


POP 




14 64 








PMODE 




1465 


5751 


2304 




ISif 


AGETiM 


1466 






/ 






1467 








LHODE 




1470 






/ 






14 71 


17p2 


^^02 


AALl . 


POP 




1472 








PMOOE 




14 7 3 


5753 






CLA 




1474 


5/54 


5/04 




JMP I 


AGETN 


1475 






/ 




14 76 






/ 






1477 






/ 






1500 






/ 






15^1 






/ 






15 02 






/ 







/DISK? 
/its . 

/Illegal 



/CZKMt^lS F\h^l l\TO A ^UMRtR( IF NOT THERE RETURNS TO QThE^»JSIL TO 

/GC- OV/t.L KOi 



/SET 1 tr =01 .T ru p-\A:'iE uLCCK. 
/IN DF ^ 

/SET 2 TO A COu.T, 

/GET Twr "vEXT ChaR TROM FNAr'E. 
/IS IT A 77 

/«HICh 13 L.'xD OF NUMbER? 

/YEP . EXIT. 

/ii> IT TOO SMALL? 

/( RllOw 6,: ) 

/YEP . BAD CHAR , 
/IS IT TuO LAhGl 
/(ABOVE 7/) 

/YEP. BAD CHAR, 
/GET OLD TOTAL 

/MULTIPLY 3Y !«• 



/MULTIPLY DONE 
/REGET The NUMBEh 

/CHOP OFF CHAR BITS 
/ADD IN OLD TOTAL. 

/IF NOT ^EHO JHZU SKP 

/IF £ERO . iZHQ AC TO 01^00. JN CASE IT WAS 7777. WHICH IS EVIL IM 8 MODE, 
/STASH A^AY SOMEPLACE 0 OTHER. 
/bOP UP COUNT 
/MORE TO GO. 

/TOO MANY 01 GITS. NUM TOO LARGE. 



/GET INTu PMOUE 
/GO TO GOOD RF luRN 



/GET INTO « MODE 

/\ftl RE SACK IN PMODE NOW. 

/CLEAR The AC 

/AND EXIT. 



lb03 




















y 














f 








1506 






f 








Ibid? 






y 








1510 














Ibll 


57 55 


03 03 


ABLl » 


30 3 






1512 








ASMI FN 


REMAKE 


/REMAKE OPTION INCLUDED??? 


15 13 








322 




/YEP. PLACE CHECK CHAR IN LIST. 


1514 








ASMI F2 


RF 06 


/DISK THERE 


1515 








ASHSKP 


2 


/NOPE. DO NTT OUT IN S AND U 


1516 


5756 


0323 




323 






15 17 


57 57 


03 25 




32 5 






l52i^ 


57 60 


4304 




4304 






15 21 






/ 








1522 


5761 


5630 


ABGl * 


ACOPY 






1523 








ASMI FN 


REMAKE 


/REMAKE OPTI QN?V? 


1524 








KONV RT 




/YEP, PLACE IN POINTER OPTION. 


15 25 








ASMI VI 


RF 08 


/HOW ABOUT THE POINTERS? 


1526 








ASKSKP 


2 


/NOT THERE 


15 27 


57 62 


74 00 




AA SY SC 






1530 


5763 


7405 




AAUNTC 






1531 


57 64 


5614 




DUP 






1532 






/ 








1533 






/ 








1534 






/ 








1535 






/ 








1536 






/ 








1537 






/ 








15413 






/ 








15 41 






/ 








1542 






/ 








1543 






/ 








1544 






/ 








15 45 






/ 








1546 






/ 








15 47 






/ 








15 50 






/ 








1551 








ASMIFN 


CARO-1 


/DO WE WANT LINE PR I NT RT ER , ? ?? 


1552 








ASMSKP 


30 


/NOPE. DONT ASEEM8LE IT 


1553 






/ 








1554 






/ 








1555 






/ 








1556 


5765 


00bj0 


LPT2 , 


0 




/LINE PRINTER CHECKER AND INITIALIZER, 


1557 


57 66 


1121 




TAD 


FT YPE 


/GET THE OUTPUT DEVICE 


1560 


5767 


1376 




TAD 


I.PM320 


/IS IT A "P" 


1561 


5770 


7640 




S£A CLA 




/? 


1562 


57 /I 


5765 




JMP I 


LPT2 


/NOPE. RETURN TO CHECK SOME MQHE. 


1563 


5772 


4777 




JMS I 


LLPEJ2 


/YEP. GIVE TWO EJECTS TO GET THINGS GOING. 


1564 


5773 


2104 




ISi! 


BFLAG2 


/PREPARE TO SET OUTPUT FLAG TO 3 


1565 


57 74 


5775 




JMP I 


. + 1 


/HETUHN AND ADO TWO MORE TO BFLGA2 


1566 


5775 


5043 




ASCH2 




/HIGH SPPEED PUNCH SETTER 


1567 






/ 








1570 


5776 


7460 


LPM320, 


-320 




/"P" 


1571 


5777 


6323 


LLPEJ2, 


lpe:j2 




/POINTER TO EJECTOR ROUTINE. 


1572 






/ 








1573 






/ 








1574 






/ 








1575 






/ 








1576 






/ 








1577 






/ 








1600 






/ 








16 01 






/ 









1602 / 

1603 / 

1604 / 
160!? / 

1600 ASMir2 CARD /L.P. ThLRE? 

1607 ABSThP* 0 /NOPL. DEFINE THE TEMPORARY NO*^ 

1610 / 

1611 / 

1612 ASMIFN CARD /L.P. THERE? 

1613 ABSTMpsLPTii /YEP. USE ENTRY AS THE TEMP 

1614 / 
161& / 

1616 / 

1617 / 
16 20 / 
16 21 / 
1622 / 
16 23 / 

1624 / 

1625 / 
16 26 / 
1627 / 
16 30 / 
1631 / 
16 32 / 

1633 / 

1634 / 

1635 / 

1636 EJECT 



16^7 / 

1640 / 

1641 / 
16 42 / 

1643 / 

1644 / 
164^ / 

16^6 / GlT the: last pakt of pip 

1647 / 

1650 / 

1651 / 

1652 CHAIM "PIP5" 



00 03 / 

0004 / 

0005 / 
00 06 / 
0007 / 

0010 / 

0011 / 

0012 / P I P 5 

0013 / 

0014 / 

0015 / 

0016 / 

0017 / 
00 20 / 

0021 / 

0022 / 

0023 / 

0024 / 

002»> EJECT 



0026 
0027 

m6^ 

i303l 
fc3i3i2 
2033 
0234 
id(33i7 
0036 
1^037 
0040 
0041 
00 42 
8043 
t3ia44 
iat}45 
0046 
0047 
0050 
00t>X 
0052 

00S3 
00t>4 

0055 
00 56 
0057 
00 60 
0061 
0062 
0063 
0064 
0065 
00 66 
0067 
0070 
0071 
00 72 
0073 
00 74 
00 75 
00 76 
0077 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0120 
0X21 
0122 



6000 0000 



0001 0000 

0002 0000 

0003 0000 
0004 



/ 
/ 
/ 
/ 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

COFLAG. 



ASMIFN 
ASMSKP 



CARD-l 
2237-1415 



/DO WE WANT THE isARO REaDEP ROUTINE INi ThERE?????? 
/NOPE. SKIP PAST THE MESS. 



CARD READER AND LINE PHIKTER ROUTINES. 



0000 



LY EXECUTE 



OVE THIS TO 



/ 

CDCUNT , 

CPOINT. 

CUSWT, 

CDCONT. 

/ 

/ 

/ 

/ 

/ 



LMOOE 
0000 



/FOR JUMPS IN LINC MODE. 

/ALSO USED AS THE CARD MOVING INDICATOR. THIS CAN BE DONE BECAUSE W£ *^ILL ON 

/JUHPS Ibi LiNC MODE k^HEN THIS FLAG IS NO N- HE RO [C ARD M0VING3 

/IF YOU HAVE ANY DOUBTS ABOUT WHETHER THIS IS TRUE AFTER YOU MAKE CHANGES, M 

/A HZA LOCATION OTHER THEN 0 OF THIS SEGMENT. 
/THIS WORD MAY BE LOCATED ANYPLACE ON THIS PAGE 



/OEFl!>fE SYMBOLS IN LMOOE IN CASE OF ADDRESSING ERRORS WHILE ASSEmBLUG 



0000 



/ 
/ 
/ 
/ 

RCSF=663l 

RCHA=6632 

RCR8=6634 

RC SO =6 671 

RCSE=6672 

RCH0S6674 

/ 

/ 

/ 

/ 

/ 

/ 

/ 



PMODE 



/TELL IT WE RE BACK IN PMODE NOW. 



/SKIP IF COLUM.Xi READY. 
/REAQ IN AN ALPHA CHAR 
/HEAD IN A B IN AR Y CH AR . 
/SKIP IF END OF CARD, 

/START A NEW CARD MOVING AND SKlPlF OK. 
/TURN OFF THE CARD 00;\IE FLAG. 



012;5 


60 05 


00 00 


CD I<N IT t 






/IMTIALliE The CARD READER. 


43124 


60 06 


32 00 




DC A 


CDFl AG 


/CLEAR ThL CARD MOVING FLAG. 


01 2t> 


60 07 


3133 




DC A 


9T E"^ P2 


/cll^^ The carl) i\ buffer flag. 


0126 


6^1i5 


1136 




TAD 




/GET The first cqlu^in to be looked at. 


0127 


60 1 1 


1131 




T AO 


0 A T A 


/GET THE LAST COlUMinj TO OE DONE, 




0012 


76 50 




s Ki A r 1 A 

O pX A l/L ** 






0131 


60 13 


12 24 




T A n 

1 A U 


CD LI liu 


/oLI •* f £. InL AL/i 


01 vS2 


6ii 1 4 


74 4 Z 




DC A 




y T T T ft C i, n V ? > 


0133 


60 1 5 


0 X ox 




OCA 


n * T A 

0 A 1 A 


/\(\UC <?TlPf Ti-|C 79 T\i Twr 1 AQT mi 1) Miy <;rAM 
/\Urt.« olJf^t. Int. 1 C. \' i inc. LAjl L»U LU nfN O UA :X • 


0134 


6016 


1131 




T A 0 


DATA 


/r-L'T TUC" 1 aCT P'llilkitN: A PATS 


013b 


6017 


7 42 




CM A 




/NLG AT L IT 


01 36 


60 20 


1136 




Tad 


BOLD 0 


y T C TU C riUCT S iaCT'5P'? 
/lo IHL rlHol ? LAolff* 


0137 


60 2 1 


7 7 00 




Sh A CL A 




y 0 
f i 


0140 




4 5 £)7 










0141 


6023 


56 05 




JM P i 


L J 1 I 1 




01 42 






/ 








01 43 






/ 








01 44 


60 c4 


01 10 


COLl 10 » 


110 




y79 "irrwij 
/ / t Jt ^1*' IL 


01 45 






/ 








0146 














01 47 






/ 








01 !70 


60 25 


Cl SCJ U llJ 


w U n L M u • 


0 




/RFAnS A THAR FROM THF CARD RFADtR- 


01 51 


60 26 


73 46 




M T MP? f F 
t n r\ t_ L 




/no WF WANT TARD REAnFR INPUT??'? 


01 1?2 


60 27 


1102 




T A 0 


BF LA Gl 


/CHECK THE INPUT FLAG. 


0153 


60 30 


7650 




SNA CLA 






01 54 


60 31 


52 34 




jM P 


. + 3 


/YEP. WE CwANT CARD READER INPUT 


01 55 


60 32 


2225 




IS i 


rn »r ad 


/NOPE. JMP THRIRD RETURN ADDRESS, 


0156 


60 33 


5314 




JM P 


CO IS H 


/IS? CDREaD AGAIN BEFORE EXITING. 


0157 


60 34 


1133 




TAD 


8TEMP2 


/IS THE CARD ALREADY IN THE BUFFER??? 


0160 


6035 


/ 640 




S2A CLA 






0161 


6036 


5303 




JMP 


CONEXT 


/YEP. IT IS, FETCH A CHAR FROM IT, 


0162 


60 37 


1200 




TAD 


CDFL AG 


/IS THE CARD MOVING???? 


0163 


60 40 


76 40 


CDL2 40 » 


SiJA CLA 




/TESTA NO LI TTERAL 


0164 


60 41 


52 54 




JMP 




/ITS MOVING, CHECK TO SEE IF COLUMN IS READY. 


01 65 


OlO •♦t 


66 72 




r?C SE 




/<;tart t hf r ar n nniNK now . 


01 66 


60 4 3 


52 77 




JM P 


CN OT R 


/ITS NOT READY. WAIT AWILE BY RETURN TO USER. 


10 J, o / 


60 44 


22 00 




I S 2 


CDFL AG 


/SET THE SWITCH TO SHOW THE CARD MOVING, 


ai 701 
101 /i0 


60 45 


45 64 




MO VE 




/2ER0 OUT THE CARD BUFFER. 


01 71 


60 46 


6163 




r n 3 u F - 1 




/CONTAINS A 0000 


01 72 


60 47 


6164 




CO 8U F 






0! 1 7 

Ic) i / 0 


60 50 


00 50 




50 






01 74 


60 l5l 


1 ~^ A 




TA 0 


rn Pn wt 


/c:FT r Pn I \« T Tn POINT TO FIRST CHAR OF CA RO BUFFER 










DC A 


CP 0 1 NT 




7 A 




ox *rKl 




nr A 


D U U U l>| 1 


/?FRn OUT THF CURRENT COlUMN COUNTER. 


01 77 






/ 










6054 


DO 0 1 


rn fin . 
OU uU iMu f 


RC SF 




/IS TMFRF A THAR THFRF??? 


0201 


6055 


5277 






CH u 1 R 




0202 


6056 


6632 




RC RA 




/READ IT IN ALPHA NUMERIC TYPE 


0203 


6057 


3065 




OCA 


TEMP 


/STORE 1''^ TEMP 


0204 


6060 


2140 




ISif 


BCOUNIT 


/BOP UP COLUMN COUNTER BY 1. 


0205 


6061 


1140 




TAD 


8C0UNT 


/GET CUHRENT POSITHON. 


0206 


6062 


7161 




CLL C^L 


CMA lAC 


/13 BIT NEGATE 


0207 


6063 


1136 




TAD 


BOLOO 


/IS IT BELOW THE STARTING COLUMN??? 


0210 


6064 


7660 




SNL SZA 


CLA 




0211 


6065 


5277 




JMP 


CNOTR 


/YEP. IGNORE IT, 


0212 


6066 


1131 




TAD 


OATA 


/GET THE UPPER LIMIT 


0213 


6067 


7161 




CLL CML 


CMA lAC 


/13 BIT NEGATE . 


0214 


60/0 


1140 




TAD 


HCOUNT 


/HAVE ^E G0^4E TOO FAR??? 


0215 


6071 


76 60 




SNL SiiA 


CLA 




0216 


60 72 


5277 




JMP 


CNOTR 


/YEP. IGfxiORE THE CHAR. 


0217 


6073 


1065 




TAD 


TEMP 


/ALL IS WELL. RETRIEVE THE HCARACTER. 


0220 


60 74 


6141 




LINC 




/NOW GO OVER TO THE LINC SIDE. 


02 21 








LMODE 







Z222 


75 


1352 




i> M I 


CP 0 1 NT 




£0 76 


Mid2 




PO P 




0224 












0223 






/ 






45226 


60 7/ 


7200 


CNQl Ri 


CL A 




£227 


61^0 


66/1 








02 30 


6101 


5625 






CD f^E AO 


02.51 


6102 


5322 




jmP 


CDOD\E 


02 32 






/ 






02 3i 






/ 






0234 






/ 






0235 


6103 


6141 


CDNE XT # 


L 1 '^C 




0236 








l_M ODE 




023 7 


010 4 


1 3<i 2 


CDNXT2 » 


LQH I 


CPU I NT 


0240 


0105 


0002 




POP 




0241 








PMOOE 




02 42 


6106 


74 50 




SN A 




0243 


6107 


53 16 




JMP 


CDEOC 


02 44 


61 10 


10 56 




TA 0 


M4 0 


02 4b 


6111 


7510 




SP A 




0246 


6112 


1025 




TA D 


LI 00 


0247 


61 13 


1240 




T AO 


CDL2 40 


02 50 






/ 






02bl 


6114 


£^225 


CD IS 2» 


IS i 


rn RE AD 


0252 


61 15 


t>6 25 




JMP I 


rn RE AD 


0253 






/ 






02 54 






/ 






0255 






/ 






0256 


61 16 


31 33 


CUEOC, 


DC A 


BT EM P2 


0257 


6117 


32 00 




UCA 


CDFL aG 


02 60 


6120 


1361 




TAD 


CD L2 15 


02 61 


6121 


5314 




JMP 


CDISif 


02 62 






/ 






02 63 






/ 






0264 






/ 






0265 






/ 






0266 






/ 






0267 


6122 


2133 


CDDONE » 


ISH 


BTEHP2 


02 70 


















S TESTED FIRST 




02 71 


6123 


66 74 




RCRU 




0272 


6124 


6141 




LIiMC 




02 73 








LMOOE 




02 74 


0125 


00 61 




SET I 


CDCUNT 


02 75 


01 26 


76 57 




-120 




02 76 


0127 


0062 




SET 1 


CPOINT 


02 77 


01 30 


02 34 




CDBUF+50 


0300 


0131 


4003 




STC 


COSt^T 


0301 






/ 






0302 


0132 


1020 


COLOOP* 


LOA 1 




0303 


0133 


3/77 




.4000 




0304 


0134 


1140 




ADM 




0305 


0135 


00 02 




CPOINT 




0306 


0136 


1302 




LOH 


CPOINT 


0307 


013/ 


02 03 




X5K 


CDSWT 


0310 


0140 


0450 




A2E 




0311 


0141 


0456 




SKP 




0312 


0142 


6152 




JMP 


CDFUNT 


0313 


0143 


0301 




ROR 


1 


0314 


0144 


1120 




ADA I 




0315 


0145 


02 35 




CDTAB 




0316 


0146 


4004 




STC 


COCONT 


0317 


0147 


1304 




LDH 


CDCONT 



/SAVE TSL HALFwuRD IM THE BUFFEW, 
/AMD BACK INTO 8 MODE. 

/THE AC l5 UEf I^ETLY .^OT gERQ i^HEN IT COMES HE ^E . 

/E'<!3 Of oARD KLACHEn??? 

/\OPl, RETUh.M TO uSEf^ TQ wAIT AwHILE. 

/GO CONVERT STORLO CARD. 



/CARD I=\ HUFf-ER AND CONVERTED. 
/LETS GE T A CHAR . 

/GET A CHAR. [COMES HERE IN LlNC MODE SOMETIMES^ 
/GET OVER INTO A DECENT MODE 

/IS IT Through (00=CR) 

/YEP. END OF CARD. 

/NOT DONE. SEE i^HICIh WAY TO ADD. 

/01-37=301-337 
/40-77S240-277 

/AND EXIT TO SECOND LOCATION 

/(OR THIRD IF CARD READER NOT CHOSEN DEVICE. 



/TURN OF THE CARD IN FLAG 

/ALSO TURN OFF ThE CARD MOVING FLAG. 

/GET A CR IN THE AC 

/AND EXIT. 



/TURN ON THE CARD IN BUFFER FLAG 

CAN LEAVE ON THE CARD MOVING FLAG FOR NOW BECAUSE THE CARD MOVING FLAG 1 

/TURN OFF THE CARD DONE FLAG. 
/AND GO Over TO LmODE 

/SET COUNTER TO 80 COLUMNS 

/SET POINTER TO POINT TO LAST COLUMN+1 

/TELL THE BLANK SCANNER TO DELETE BLANKS. 



/BACKSPACE 1 CHAR IN CARD BUFFEER. 



/GET THE CHAR 

/TEST THE BLANKS SCAN SWITCH. 
/STILL SCANNING. CHECK FOR BLANK. 
/NOT BLANK OR NOT SCANNING. 
/IT BLANK. IGNORE IT. 

/ROTATE RIGHT TQ PUT BIT 11 IN BIT 0 
/NO^ ADD IN BASIC TABLA ADDRESS POINTER, 

/GET TRANSITION CHAR ADDRESS. 
/NOW GET THE TRANSITION CHARACTER. 



03 20 


01 50 


00 63 




Qf T T 


CP SW T 


0321 


01 51 


77 77 




"id 




01 52 


13 42 


\^\J T \J ri } t 


ST H 


Lr U I IN 1 


0323 


01 53 


02 21 




ASK I 


Cu CUNT 


03 24 


01 54 


61 32 




JM P 


CDLOOP 


0325 


01 55 


00 62 




SE T I 


CP 0 I NT 


0326 


0156 


■»1 00 


bur UN f t 


CDBUF" 


1+4000 


0327 


0157 


OX \0*J 




JM P 


CD NX T2 


03 30 






/ 






03 31 






/ 






03 32 






/ 






03 33 






/ 






0334 












0335 






/ 






0336 






/ 






0337 


0160 


0211 


LPl, 


211 




0340 


0161 


0215 


CDL215, 


215 




0341 


0162 


4232 




4232 




03 42 






/ 






0343 






/ 






03 44 






/ 






0345 






/ 






03 46 






/ 






0347 






/ 






03 50 






/ 






0351 






/ 






03 52 






/ 






0353 








EJECT 





/anu 



TELL IT WE RE NOT SCANNING BLANKS ANYMORE 



/NOW STASH AWAY CONVERTED CHAR, 
/HAVE hE DUNE 80 COLUMNSV? 
/NOPE. GO BACK AND DO ANOTHER. 
/YEP. WE VE DUNE 80 COLUMNS. 

/SET THE POINTEW SO CDNEXT CAN GET THE CHARS, 
/AND EXIT BUT FIRST GET A CHAR TQ SEND BACK 



/TAB 
/CR 

/ END-Or- 



TAPE 



0354 
0355 
0356 
03157 
03 60 
03 61 
0362 
0363 
0364 
0365 
0366 
0367 
0370 
0371 
0372 
03 73 
03 74 
0375 
03 76 
0377 



0000 



0401 
0402 
0403 
0404 
0405 
0406 



0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
04 30 
0431 
04 32 
0433 
0434 
0435 
0436 
0437 
04 40 
0441 
04 42 
0443 
0444 
0445 
04 46 
0447 
04 50 
0451 
0452 



0235 
0236 
0237 
0240 
0241 
0242 
0243 
02 44 
0245 
0246 
0247 
02 50 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
02 60 
0261 
02 62 
0263 
02 64 
0265 
0266 
0267 
02 70 
0271 
0272 
02 73 
0274 



0163 
0164 



0234 0000 



4061 
6263 
6465 
6667 
7071 
7243 
4047 
75 42 
6057 
2324 
2526 
2/30 
3132 
3554 
4537 
7677 
5512 
1314 
1516 
1720 
2122 
4144 
5251 
73 34 
4601 
0203 
0405 
0607 
1011 
3356 
7450 
53 36 



/ 
/ 
/ 

/ 

CDBUF, 
/ 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

CDTABf 



00 00 
00 00 

*CDBUF*50 
0000 



/USEU FOR ^tHOlNG OUT THE CARD BUFFER. 
/80 COLUMN BUFFER 

/USED AS END OF CHAR CHARACTER INCASE OF 80 CHARACTER SCAN. 



4061 
6263 
6465 
6667 
7071 
7243 
4047 
75 42 
6057 
2324 
2526 
2/30 
3132 
3554 
4537 
7677 
5512 
1314 
1516 
1720 
2122 
4144 
5251 
7334 
4601 
0203 
0405 
0607 
1011 
3356 
7450 
5336 



THIS IS THE CONVERSION TABLE FOR THE CARO READER CHARS TO ASCII CHARS. 



/BLANK 

n 

/4 
/6 

/a 

/: 

/AT SIGN 
/ = 
/0 

/s 
/u 
/w 

/Y 
/3 
/% 
/> 
/- 
/K 
/M 
/O 
/Q 
/I 
/♦ 
/? 
/« 
/B 
/D 
/F 
/H 
/C 
/< 
/♦ 



1 

3 
5 
7 

9 

NUMBER SIGN 

APOSTROPHE 

/ 
T 
V 
X 
2 
* 

BACK ARRO^* 

? 

J 

L 

N 
P 
R 

DOLLAR SIGN 
) 

\ 
A 
C 
E 
G 
I 

( 



EJECT 



I 



04 






/ 






04 54 






/ 






04 5!? 












04 56 






/ 






04 57 






/ 






0460 






/ 






0461 






/ 




LI NE P«I -ntR ROuTi NE . 


43462 






/ 






04 63 






/ 






04 64 






/ 






04 65 






/ 






0466 






/ 






04 67 






/ 






04 70 






/ 




LINE PRINTER DEFINITIONS. 


0471 






/ 






0472 






/ 






0473 






LSE=6651 






04 74 






LCf = 6652 






0** 75 






LLB=66 54 






04 76 






LSQ56661 






04 77 






UCtis66 62 






0500 






lPK=6664 






05 01 






/ 






050iJ 






/ 






0503 






/ 






0504 






/ 






0505 






/ 






0506 






/ 






05 07 






/ 






0510 






/ 






0511 






/ 






0512 






/ 






05 13 


6275 


0000 


LPTEST, 0000 




/MAIN LINE PRINT CHARACTER CABOSH. 


0514 


6276 


7346 


mthrle: 




/IS IF LINE PRINTER IS THE CHOSEN ONEiOEVICE 


0515 


6277 


1104 


tao 


BFLAG2 




0516 


6300 


/640 


S2A CLA 






05 17 


63 01 


56 75 


JMP I 


LPTtST 


/NOT THE CHOSEN ONE* 


0520 


6302 


1721 


TAO I 


LPSEQ 


/GET THE CHAR 


0521 


6303 


3121 


JC A 


FTYPE 


/PLACE IN SEARCHErt INPUT. 


0522 


6304 


4573 


SEARCH 






0523 


6305 


6160 


LPl 






0524 


6306 


6356 


LP2 






0525 


6307 


1121 


TAD 


FTYPE 


/GET THE CHAR 


0526 


6310 


1147 


TAO 


M340 


/SUBTRACT TOO BIG CHAR . 


0527 


6311 


7100 


CLL 




/CLEArt LINC FOR NEW TEST. 


0530 


6312 


1025 


TAD 


LI 00 


/CHECK FOR LOWER LIMIT 


05 31 


63 13 


76 20 


SNL CLA 




/IS IT INSETWEEN 240-337??? 


0532 


6314 


5720 


JMP 1 


LPEXIT 


/NOPE. IGNORE IT, 


0533 


6315 


1121 


TAD 


FTYPE 


/GET THE CHAR 


0534 


6316 


4333 


lpcomm, jms 


LPPUT 


/AND OUTPUT THE CHAR. 


0535 


6317 


5720 


JMP I 


LPEXIT 


/AM D EXIT 


0536 






/ 






05 37 






/ 






0540 






/ 






0541 


6320 


3767 


LPEXIT, SEQEXT 






0542 


6321 


3711 


LPSEQ, SEQIN 






0543 


6322 


0000 


LPCOt, 0000 






0544 






/ 






0545 






/ 






0546 






/ 






0547 






/ 






0550 


6323 


0000 


LPEJ2, 0 




/GIVES TWO EJECTS ON THE PRINTER. 


05 51 


63 24 


72 40 


LP08O2, MONE 




/REALLY A 17 



0t>32 


63 25 


43 33 






LPPU T 


/t. JLCT 1 




63 if 6 


13 74 




TAD 


LP^^t'4 


/■^L^cT CGLu^'N CDJ'JTEK TO TriE dEGINjMNG 




6327 


3322 




JC A 


LP CCL 


/STASh A,-4AY. 




6330 


7240 


lPiucS 03 » 


0 .\ E 






25 56 


63 31 


4333 




ji'^S 


lPPut 


/lJLCT 2 


6:557 


6332 


5723 




JHP I 


LPtj2 


/■itjjn\ TO The Called. 


05 6kj 






/ 








25 61 






/ 








05 62 






/ 








kS563 






/ 








056*? 


63 33 


00 0fej 


LP PU T , 






/PKr-jT:S A CHAK OR DOES A CONTROL CRAP. 


t^565 


6 3 34 


3i(^ 6 5 




DC A 




/SAVE T n t C H A . 


0566 


6335 


2322 




I bj? 


LPCCL 


/END OF THE LINE?? 


05 67 


6336 


5343 




JM P 


LP WF IT 


/HOPZ. Pr^IMT IT. 


05 70 


63 37 


13 74 


lpck • 


TAD 


LPf^204 


/RESET THE COLUMN COUNTER 


t3571 


6340 


3322 




OCA 


lpcol 


/STA5H AWAY. 


^572 


6341 


1021 


LP08O4 , 


TAD 


L7 770 


/SPACE 1 PR! NTEK L VU. 


16573 


6342 


i>316 




JMP 


LP CO MM 


/COM -ION PuTTLR ROUTINE 


0574 


6343 


4556 


tpwr IT , 


CHECKI 0 




/CHECK FOR A CCNTROL i OR SOMETHING. 


0575 


6344 


6661 




LSU 




/LINE PRINTER CLEAR???? 


0576 


6345 


5343 




jhP 


.-2 


/NOPE. WAIT. 


K577 


6346 


6652 




LCF 




/CLEAR The FLAG 


060k:) 


63 4 7 


1065 




TAD 


TEMP 


/GET THE FUNCTION. 


0601 


6350 


7500 


LP0dO5 1 


SMA 




/IS IT A CONTROL, 


0602 


6351 


6654 




LLB 




/NOPE. MUST BE CHAR. STICK IN BUFFER, R, 


0603 


6352 


7510 




SPA 




/IS IT PUSITIVE? 


06 04 


6353 


6664 


LH0aO6 , 


LPR 




/NOPE. MUST BE CONTROL. tkP IT 


0605 


6354 


7200 




CLA 




/NOW CLEAR THE AC TO 8E SURE. 


06 06 


63 55 


57 33 




JMP 1 


LPPUT 


/AND RETURN TO THE CALLER, 


0607 






/ 






0610 






/ 








0611 






/ 








0612 






/ 








0613 






/ 








0614 






/ 








0615 






/ 








06 16 






/ 








0617 


63 56 


63 61 


LP2, 


LP TAB 






0620 


6357 


6337 




LPCR 






0621 


6360 


6371 




LPENO 






0622 






/ 








0623 






/ 








0624 






/ 








0625 






/ 








06 26 


6361 


1373 


LPTABt 


TAD 


LP 40 


/BLANK 


0627 


63 62 


4333 




JMS 


LPPUT 


/SEND TO PUTTER ROUTINE. 


0630 


63 63 


7325 


LP0tiO7 , 


PTHREE 




/TO COMPCNSTATE FOR THE -2P4 [ 204-1!] 


0631 


6364 


1322 




TAO 


LPCOL 


/GET THE COLUMN. 


0632 


6365 


0060 




AND 


L7 


/IS IT A MULTIPLE OF 8 


0633 


6366 


7640 




bZA CLA 




/?? 


0634 


6367 


5361 




JMP 


LPTAB 


/NOPE. GIVE ANOTHER BLAKN. 


0635 


6370 


5720 




JMP I 


lpexit 


/AND EXIT. 


0636 






/ 








0637 






/ 








0640 


6371 


4323 


LPEND, 


JMS 


LPEJ2 


/GIVE TWO EJECTS. 


0641 


6372 


5552 




Pi P 






0642 






/ 








0643 






/ 








06 44 






/ 








0645 






/ 








0646 


6373 


0040 


LP 40 , 


40 






0647 


6374 


7574 


LPM204 , 


• 204 






0650 


6375 


0212 


LP212, 


212 




/LINE FEED IF LP 08 PRESENT, 



A LINE. 



0&51 667b ZdlA LP214, 2lA 



dbbZ / 

db36 / 

06 54 / 

0655 / 

fe;6 56 / 

0657 / 

0660 / 

t5661 / 

2662 / 

^6 6;5 / 

0664 / 

fe;665 / 

0666 / 

0667 / 
0670 / 

067X LJECT 



/FORM FEE.U ir LP08 PRtSENT 



tJ672 
0673 
0674 
0675 
0676 
0677 
ii700 
idlidl 
0702 
K7 03 
0704 
0705 
0706 
0707 
0710 
0711 
0712 



6377 0000 



THIS ORIGIN INSURES THAT BUrPEK-l CONTAINS A ifRQ FOR THE TRIVIAL CORE IZhO HC 
WHICH IS LOCATED IN PAGE 1(203-377) 



-'TINE 



»BUFFEH-1 
0000 



EJECT 




21U 












0714 






/ 














/ 








0716 






/ 








E717 






/ 






THIS R 


fe!7«^Z 






/ 








k:72i 






/ 








Z7 22 






/ 








2723 






/ 








e7 24 






/ 














/ 








Zl2b 






/ 








07 27 






/ 








e730 






/ 








137 31 


6400 


00 00 


CORtF, 


0 






07i2 


6401 


7200 




CLA 






0733 


6402 


1261 




TAD 




CL ITOl 


0734 


6403 


3712 




OCA 


I 


CL IT02 


0735 






/ 








e7 36 


64 04 


3065 




DC A 




TEMP 


07 37 


640!? 


2065 


CLOCP. 


IS^ 




TEMP 


e7 40 


64 06 


1065 




TAD 




TEMP 


0741 


6407 


7041 




CIA 






0742 


6410 


3141 




DCA 




COUNT 


0743 


6411 


30 66 




OCA 




TEMPI 


fe;744 


6412 


2066 


CLLOOP » 


iSif 




TEMPI 


e7 4b 


6413 


4275 




jmS 




CSET 


0746 


6414 


1066 




TAD 




TEMPI 


0747 


6415 


3711 




OCA 


1 


CPBYTE 


0750 


6416 


2141 




ISiJ 




COUNT 


0751 


64 17 


5212 




JMP 




CLLOOP 


63752 


64 20 


10 65 




TAO 




TEMP 


07 53 


6421 


7041 




CI A 






0754 


6422 


3141 




DCA 




COUNT 


07 55 


64 23 


30 66 




OCA 




TEMPI 


0756 


6424 


2066 


CCLOOP . 


ISif 




TEMPI 


0757 


6425 


4275 




JMS 




CSET 


0760 


6426 


1711 




TAD 


I 


CP8YTE 


0761 


6427 


7041 




CI A 






07 62 


64 30 


1066 




Tad 




TEMPI 


0763 


6431 


7640 




St? A 


CLA 




0764 


64 32 


5236 




JMP 


COUT 


0/65 


6433 


2141 




IS£ 




COUNT 


0766 


6434 


5224 




JMP 




CCLOOP 


0767 


6435 


5205 




JMP 




CLOOP 


07 70 






/ 








0771 


6436 


7344 


COUT, 


MT WO 




0772 


6437 


1065 




TAD 




TEMP 


0773 


64 40 


7106 




CLL 


RTl 




0774 


6441 


7006 




HTL 






07 75 


6442 


30 66 




DCA 




TEMPI 


0776 


6443 


1310 




TAD 




C8UFF 


0777 


6444 


7041 




CI A 






1000 


6445 


7106 




CLL 


RTU 




1001 


64 46 


7006 




RTL 






10 02 


64 47 


7004 




RAL 






10 03 


64 50 


10 66 




TAO 




TE MPl 


1004 








ASMI FN 


RF08 


1005 


6451 


1047 




TAO 




L777 7 


1006 


6452 


3074 




DCA 




BNJM 


1007 


6453 


6kl01 




CDF 




0 


1010 


6454 


1074 




TAO 




aNUM 


1011 


64 55 


7110 




CLL 


RAH 





ouTI\t 13 CALLEJ J-.lY 0\CE AT 
MAW K OF CCRE T^.E. Guy has. 
'3UFFE« AREA. 



INITIALISATION TU FIGURE OUT hO^ 
Thl\ I T S USED I N THc 



/MAIN ENTRY. 

/CLEAR AC TO BE SURE. WE VE GOT HOOM . 
/REPLACE JMS I\STRUCTION BY NORMAL TAU. 
/AND OVEKlAY mow. 

/HERO OUT 



/DISK PRESENT??? 

/YEP. 80P DOWN The NUMBER OF HUFFERS BY 1 TO PROTECT 7400 



1012 


6456 


0021 




AND 


l777^ 




IkilS 


6457 


7640 




bziA CLA 






liJ14 


6460 


5*J67 




JMP 


COCOOC 




lf?l& 


6461 


1056 


CL ITOl , 


TAD 




/A LiTTtH IvPt. 


una 


646k: 


3236 




DC A 


CQUT 




i;di7 


6463 


4551 




DI bPLAY 






1020 


6464 


6513 




IN SUIT 






1021 


6465 


22 36 






CQ JT 




1022 


64 66 


52 63 




JMP 


- i 




1023 






CDCDCC » 


ASM! Fjf 


CA 


/TEST FOm ThL LiNt POINTER 


1024 








AbHbKP 


3 


/SKIP PAST LP0t3 CRAP 


1025 


6467 


4671 




JMS I 


. *2 


/TEST FOR NO A.^LEX 


1026 


6 4 70 


7 4 10 




SKP 






1027 


6471 


67fci3 




LP08TS 






1030 








ASMi Fi 


RF08 


/DO wt i''A^jT A SCRATCH Di S^ SETUP???? 


1031 








ASMSKP 


3 


/NOPE. LJO DISK CHECK NOW, 


1032 


6472 


1200 




TAD 


COREF 


/RETURN ADDRESS 


1033 


64/3 


5674 




JKP I 


. + 1 


/DO TO CORE CHECKER 


1034 


6474 


6601 




CD !SKC 




/\'0W CHECK FOR UISKSSSSS 


1035 








ASMI FZ 


RF06 




1036 








CMA CMA 




/MINUS ONE COUNT, FOR NOW, 


1037 








ASMIF2 


RF06 




1040 








JMP I 


COREF 


/RETURN NOW 


1041 






/ 








1042 






/ 








1043 


6475 


0000 


CSET. 


0 






1044 


6476 


1047 




TAD 


L7777 




1045 


6477 


1066 




TAD 


TEMPI 




1046 


6500 


0060 




AND 


17 




1047 


6501 


7106 




CLL RTl 






10 50 


6502 


7004 




Ral 






1051 


6503 


1307 




TAD 


CCOF 




1052 


6504 


3305 




DC A 


.♦1 




1053 


6505 


0000 




0 






1054 


6506 


56 75 




JMP I 


CSET 




1055 






/ 








1056 


6507 


6201 


CCDF. 


CDF 


0 




1057 


6510 


6400 


CBUFF, 


BUFFER 






10 60 


6511 


77 77 


CP8YTE . 


77 77 




/SHOULD BE A FREE LOC NOW. 


1061 


6512 


0222 


CLIT02* 


ITDV 




/POINTER INITIALISATION OVERLAY, 


10 62 






/ 








1063 






/ 








1064 






/ 








1065 






/ 








1066 


6513 


0240 


INSULT . 


lLFT+240 


/ABOUT CENTER OF SCREEN 


1067 


6514 


k)340 




TOP 






lfc5 70 






TEXT " 








1071 


6515 


4306 










1071 


6516 


1140 










1071 


6517 


2717 










1071 


6520 


2514 










1071 






FI WOULD 






1072 


6521 


0443 










1072 


6522 


0640 










1072 


6523 


4022 










1072 






F RUN 








1073 


65 24 


2516 










1073 


6525 


4306 










10 73 


6526 


40 06 










1073 


6527 


0123 










10 73 


6530 


24 05 










1073 






F FASTER 






1074 


6531 


2243 











1^74 6b32 S3611 

653i 0640 

ie74 6b34 3117 

1074 FIF YOU 

1075 6t>3b 2i>43 
li575 6536 0640 
1071? 6537 4010 

10 75 F HAD 

1076 6540 0104 
1076 6541 4306 
1076 6542 4040 

1076 F 8K 

1077 6543 7013 
1077 6544 4306 
1077 6545 1116 
1077 6546 2324 
1077 6547 0501 

1077 FINSTEAD 

1100 6550 0443 

1100 6551 0617 

1100 6552 0640 

1100 6553 1716 

1100 FOF ONLY 

1101 6554 1431 
1101 6555 4306 
1101 6556 4040 
1101 6557 6413 
1101 6560 3400 

1101 F 4K\" 

1102 / 

1103 / 

1104 / 

1105 / 

1106 / 

1107 / 

1110 EJECT 



nil 






/ 






11 12 






/ 






1113 






/ 






1114 






/ 






1115 






/ 






1116 






/ 






1117 






/ 






IX 2id 






/ 






1121 








ASMIF2 


RF0d 


11 22 








ASMSKP 


12 7 


11 23 






/ 






1124 






/ 






11 25 






/ 






11 26 






/ 






1127 






/ 






1 1 30 






/ 






1131 








*8urrE:R*20 0 


1132 






/ 






1133 






/ 






1134 


6600 


0000 


CDISK. 


0 




1135 


66 01 


3200 


CD ISKC , 


DC A 


CDISK 


1136 


6602 


7240 




CLA CMA 


11 37 


6603 


6742 




dcls 




1140 


6604 


7200 




CLA 




1141 


66 05 


1302 




TAD 


CDIL70 


1142 


6606 


6732 




OLDC 


1143 


66 07 


7200 




CLA 




114 4 


6 610 


6736 




ORDC 




114 5 


6611 


7041 




CIA 




114 6 


6612 


1302 




TAD 


CDIL70 


1147 


66 13 


76 50 




SNA CLA 


1150 


6614 


5261 




JMP 


CRK08 


1151 






/ 




1152 


6615 


6601 




DCMA 




1153 


6616 


6601 




DCMA 




1154 


6617 


1024 




TAD 


L77 


11 55 


66 20 


66 43 




OX AL 


1156 


6621 


7200 




CLA 




11 i>/ 


66 22 


66 45 




OXAC 




1160 


66 23 


7041 




CIA 




1161 


66 24 


1024 




TAD 


L7 7 


1162 


66 25 


76 130 




SNA CLA 


1163 


66 26 


4231 




JMS 


DSET 


1164 


6627 


7240 




CLA CMA 


116^7 


66 30 


5600 




JMP I 


CDISK 


1166 






/ 




1167 






/ 






1170 






/ 






1171 






/ 






1172 


6631 


0000 


DSET, 


0 




1173 


6632 


7240 




MONE 




1174 


6633 


3670 




DCA I 


CRKP TN 


1175 


6634 


1074 




TAD 


BNUM 


1176 


6635 


0021 




AND 


L7770 


1177 


66 36 


76 50 




SNA CLA 


1200 


6637 


52t>0 




JMP 


OSETPl 


1201 


6640 


4tJ64 




MOVE 


1202 


6641 


0750 




RKBTST 




1203 


6642 


6213 




RK9ST 




1204 


6643 


0002 




2 




1205 


66 44 


4564 




MOVE 




1206 


66 45 


66 71 




RKSETU 




1207 


66 46 


0/50 




RK8TST 





/DISK CHECKER OK?V? 
/SKIP FOLLOWING CODE 



/DISK CHECKER CRAP. 



/PHOONEY RETURN 

/SAVE RETURN ADDRESS , 

/CLEAR THE RK08 STATUS REGISTER 

/NOW CLEAR THE AC 

/PLACE A 7fe} IN THE AC TO SEE IF THE RK0b IS THERE 

/SEND TO THE CONTROLLER 

/CLEAR AC IN CASE lOT WAS A NOP 

/NOW READ BACK IN COMMAND REGISITER 

/NEGATE IT 

/TEST TO SEE IF STILL THERE 
/HOW ABOUT IT. 

/REG IS GOOD. WEVE GOT AN RK08 

/BAH. CLEAR DISK 

/ONE MORE TIME FOR GOOD MEASURE 
/A DISK ADDRESS. 
/SEND IT OUT 

/CLEAR THE AC TO BE SURE 
/READ IT BACK??? 

/ALL WELL? 
/??? 

/SET UP FOR THE DISKS NOW??? 
/MINUS 1 FOR THE COUNT. 
/RETURN 



/SET TO ALL ONES SO RK08 CONTROLLER WILL THINK ITS ThE 

/WRONG UNIT AND WILL GIVE A POWER CLEAR. 

/GET THE NUMBER OF BUFFERS NOW. 

/SEE IF GREATER THEN 20, ACTUALLY 10 WILL 00 

/? 

/NOT 8K. NO REfcfOOTSTRAP. 



/SAVE OLD INSTRUCTIONS 
/IN CARD READER TEMP . 



/NOW MOVE IN KEYBOARD TEST INSTRUCTIONS. 



1210 6647 2032 2 

1211 6653 1273 DStTPl. TaO 'JTAdl /G^-T f-HE Fb^sT TAt»Lt LOCATIONS 

1212 66bl 6ZU JCA Au^Jl /oAvrl A.nAY 

1213 66t?2 lAli: DCLOOP. TAJ I AuTJl /GET Tne MX AJjRfSS 

1214 6653 74i7kJ SnA /I^ iT ;^ l ^< 0 ? ? ? ? 
121!) 6654 5b31 J'^P 1 JStT /YEP. nl 

l'<il6 6655 3K5t)P OCA T^-^P /:>AVL ThL ^jJhl:>S 

1217 66^>6 13^1 TAD CS^'SBW /uF.T Tn^; CoH^^CT \tW UNIT 

ld2d 60 5/ 3 4 65 OCA I Tt^iP /A^M-.i bET IT UP, 

1221 6662 o2o2 DCLOOP /GO dAC^ K OP NExT. 

12 22 / 

1223 / 

1224 / 
12 2b / 

1226 6661 4^31 CHK^B. JMS DSET /SU UP Tnt dl-^At^Y U-NITS aS AOVENTISED. 

1227 6662 4564 ^OVt /NGw KUVE Tht WK^Ib RGUTl:gtb JP THE 
lid30 6663 7226 RKRtAQ /THt DESIKEO AWlA 

1231 6664 7626 ^rREAJ 

X2:S2 6665 0152 -KFr^EAO /LENGTH JuST HAHR^NS TO BE THIS NUM. 

1233 6666 7240 CLA CMA /MINUS 1 FOR THE COUNT. BABY. 

1234 6667 5600 JMP I CQISK /HANDLER NOW SET UP USE DISKS. 

1235 / 

1236 / 

1237 / 

1240 / 

1241 / 

1242 / 

1244 667i3 4576 CRKPTN. RKSTAT /RK0e STATUS AS OF BEFORE I'O PRESET. 

1245 6671 4751 RKSETU. »<KBTST + lil77 : 460i5 /JMS I RKBTST + 1 

1246 6672 6164 RKCHAR /CHECK T ht RKijS CHARACTER, 

1247 / 

1250 / 

1251 / 

1252 / 

1253 / 
12 54 / 
1255 / 
12 56 / 
1257 / 

1260 / 

1261 / 

1262 / 

1263 / 

1264 / 

1265 / 

1266 / 

1267 / 
12 70 / 

1271 / 

1272 / 

12 73 / 

1274 / 

1275 6673 6673 QTABl, . /POINTS TO NEXT -1 

1276 6674 4145 OSYSl 

1277 6675 4157 USYS2 
am 6676 42B6 DSYS3 

1301 6677 5353 aSYS4 

1302 6700 0000 00002 

13 03 / 

1304 / 

1305 6701 0011 03YSB1N, SYSBSP /SPECIAL BINARY Ji^iIT. 

1306 6702 0k}70 CDIL70, 7iJ 



1307 


/ 


1310 


/ 


1311 


/ 


1312 


/ 


1313 


/ 


1314 


/ 


1315 


/ 


1316 


/ 


1317 


/ 


I32i3 


/ 


1321 


/ 


1322 


/ 


1323 


/ 


1324 


/ 


13 23 


/ 


1326 


/ 


1327 


/ 


1330 


/ 


1331 


/ 


1332 


/ 


1333 


/ 


1334 


/ 


1335 


/ 


1336 





EJECT 



1337 






/ 






1340 






/ 






1341 






/ 






1342 






/ 






13 43 






/ 






1344 






/ 






1345 






/ 






1346 








ASMIFH 


CARD 


13 47 








ASKSKP 


1373-12 


1350 






/ 






1351 






/ 






1352 






/ 






1353 






/ 






13 54 






/ 






1355 


6703 


0000 


UP08TS, 


0 




1356 


6704 


6652 




LCF 




1357 


6705 


1022 




TAD 


M4 


1360 


67 06 


3065 




DCA 


TEMP 


1361 


6707 


3066 




OCA 


TEMPI 


13 62 


6710 


66 62 




LCB 




1363 


6711 


6661 


tP0BLP » 


LSD 




1364 


6712 


7410 




SKP 




1365 


6713 


5703 




JMP I 


LP0ttTS 


1366 


6714 


2066 




IS2 


TEMPI 


1367 


6715 


5311 




JMP 


LP 08 LP 


1370 


6716 


2065 




ISH 


TEMP 


1371 


6717 


5311 




JMP 


LP0aLP 


1372 


6720 


1337 


LP08LT f 


TAD 


LP08PT 


1373 


6721 


7450 




SNA 




1374 


6722 


5703 




JMP I 


LP08TS 


1375 


6723 


3727 




DCA I 


LP08PO 


1376 


6724 


2323 




iS2 


1-1 


13 77 


6725 


23 20 




IS2 


LP0BLT 


1400 


6726 


5320 




JMP 


LP08LT 


1401 






/ 






1402 






/ 






1403 






/ 






14 04 






/ 






14 05 


67 27 


0240 


LP08PO » 


LP 08 01 




1406 


6730 


6324 




LP08O2 




14 07 


67 31 


6330 




LP 08 03 




1410 


6732 


6341 




LP0aO4 




1411 


67 33 


6350 




LP 08 05 




1412 


6734 


6353 




LP 08 06 




1413 


67 35 


63 63 




LP 08 07 




1414 


6736 


63 74 




LPM204 




1415 






/ 






1416 






/ 






14 17 






/ 






1420 






/ 






1421 








LP08BA= 


,£7600 


1422 








LP08B2= 


LPEJ247I 


14 23 






/ 






14 24 






/ 






14 25 






/ 






1426 


6737 


6666 


LP08PT, 


LPR: LCB 




1427 


6740 


1376 




TAD 


LP214- 


1430 


6741 


1376 




TAD 


LP214-: 


1431 


6742 


1375 




TAD 


LP212- 


1432 


6743 


5353 




JMP 


LP08O6 


1433 


6744 


6666 




LPRILCB 




1434 


6745 


7201 




PONE 




1435 


6746 


7656 




-122 





/LP08 TESTER ROUTINES 
/SKIP PAST THE STUFF NOW 



/ALL FINISHED WITH THE PATCH NOW 
/STORE IN THE POINTER NOW 



/ALL THATS NECESSARY TO FILL OUT TABS CORRECTLY, 



1436 6747 0000 0 

1437 / 

1440 / 

1441 / 
14 42 / 
14 43 / 

1444 / 

1445 / 

1446 / 

1447 / 

1450 / 

1451 EJECT 



I4i>2 

1454 
14t)5 
1456 
14137 
1460 
1461 
1462 
1463 
14 64 
1465 
1466 

1467 

1470 

1471 

14 72 

1473 

1474 

1475 

14 76 
1477 
1500 
1501 

15 02 
15 03 
1504 
1505 
1506 
1507 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
15 30 
1531 
1532 
1533 
1534 
1535 
15 36 
15 37 
1540 
1541 
1542 
1543 









*CDc3UF 


6164 




RKCH AH 1 




6165 


730.; 




CLA CLL 


6166 


60 34 




KKS 


6167 


1143 




TAO 


61 7i^ 


;6b^ 




SNA CLA 


6171 


5376 




JMP 


6172 


4564 




MOVE 


6173 


62 04 




JACKS 


61 74 


02 47 




OVER EX 


6175 


a007 




OVEHLEN 


6176 


4564 


DI ALEX » 


MOVE 


6177 


6213 




HKBST 


62015 


0/50 




NKBTST 


6201 


0k)02 




2 


62 02 


5603 




JMP I 


6203 


0750 




RK8TST 



/ORIGIN INITIALIZATION CODE IN THE CARD READER BUFFER. 



BE SURE. 
AC CHAKACTER 



M215 



Dl ALEX 



6204 
6205 
6206 
6207 
6210 
6211 
6212 



6213 
6214 



4571 
0010 
6400 
0022 
03 02 
6213 
54 47 



0000 
00 00 



/ 

/ 

JACKS* 



/ 

/ 

RK9ST. 

/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 



/CLEAR AC TO 
/READ IN THE 
/IS IT A C .R . 
/? 

/mORMAL TAPE EXIT. 

/SET UP DISK RETURN NOW 

/MOVE OVERLAY IN NOW 



/OLD INFO 



.+1 



READ 
10 

BUFFER 
22 
30 2 

CDF CIF 10 
JMP 1 



L7 77 7 
OVEHLEN=. -JACKS 



/READ IN DIAL-MS BOOTSTRAP NOW, 



/TWENTY TWO FOR 8-K. 
/302+2l&22=322«323 
/UPPER CORE 
/REBOOTSTRAP 



EJECT 



1544 / 

lb45 / 

lb46 / 

IbA? / 

I55lj / This is l^Z OPTIOiNiAL ^riS~Ri<^6 ROUTINE. IT S DiViOEO I N'T 0 T^Q PARTS. 

1!>31 / 

l':>^2 / THE SeCOfvD PART IS T hE ACTUAL LOw LEVEL DISK ROUTINE. 

1553 / 

li>54 / The FIRST PART IS A LITTLE CALLI\'G ROUTINE vJHICH INTERPRETS THE CALLS FROM PIPS MASS STOREAGE ROUTIN 

£S . 

1^?5^ / AND PROTECTS LOCATIONS 7400- 77 77 FROM THE DISK 2APPING THEM. 

Ib56 / 

1557 / 

1560 / 

1561 / 

1562 / 

1563 / 

1564 / 
15 65 / 

1566 / 

1567 / 

1570 / 

1571 / 

X572 ASMIF2 HF08 

1573 ASMSKP 136^ /SHOULD BE CORRECT NUMBER TO SKIP OVER THEM 

1574 / 

1575 / 

1576 / 

1577 / 

1600 / 

1601 »7400 

1602 / 

1603 / 

1604 / 

1605 / 

1606 / 

1607 / 

1610 / 

1611 / 

1612 / 

1613 / 

1614 / 

1615 / 

1616 / 

1617 / THE SYSTEM AND UNIT COPIER HANDLERS. 

1620 / 

1621 / 

1622 / 

1623 / 

1624 / 

1625 / 

1626 / 

1627 / 

1630 / 

1631 / 

1632 / 

1633 / 

1634 7400 4564 AASYSC. MOVE /SET UP TQ COPY JUST THE SYSTEM (NO INDEX) 
163d 7401 7472 ASYSL /SYSTEM COPY INFORMATION 

1636 7402 7466 AASUC /COMMON INFORMATION 

1637 7403 0204 AASUCS /SUE OF SYSTEM INFORMATION 

1640 7404 5211 JMP AASUCR /GO TO COMMON ROUTINES 

1641 / 



16 42 






/ 








1643 






/ 








16 44 






/ 








1645 


7405 


4564 


AAUNTCi 


MOVE 




/SET UP TO COPY THE ENTIRE UNIT. 


16 46 


7406 


7476 




auntl 




/INFORMATION 


1647 


7407 


7466 




AASUC 




/TO COMMON ROUTINES, 


16 5B 


7410 


00 04 




AASUCS 




/NUMBER OF WORDS TO MOVE 


1651 






/ 








1652 






/ 








1653 






/ 








16 54 






/ 








1655 


7411 


1120 


AASUCR 1 


TAD 


ruNi T 


/GET THE NUMBER OF COPIES TO MAKE 


1656 


7412 


0060 




AND 


L7 


/CHOP OFF THE Hi GH ORDER CRAP 


1657 


74 13 


M50 




SNA 




/2ER0??? 


1660 


7414 


7001 




lAC 




/YEP, MAKE 1 COPY ONLY 


1661 


7415 


7041 




CIA 






1662 


7416 


3301 




OCA 


AAMHOW 


/STASH AWAY NUMBER TO MAKE 


1663 






/ 








1664 






/ 








1665 






/ 








16 66 






/ 








16 67 






/ 








16 70 


7417 


4562 


ASULPl » 


DECODE 




/GET THE INPUT DEVICE 


16 71 


74 20 


4610 




CI NPUT 




/COPY INPUT IS GOOD ENOUGH FOR ME 


16 72 


74 21 


45 73 




SE ARCH 




/LOOK UP THE REPLY 


1 A 7 7 
10/0 


7422 


4 < 7 7 




ACPLl 




/TABLE OF CHARS 


16 74 


74 23 


45 50 




ASUG 01 




/ TR A NSFE R T A BlE 




74 2 4 


5217 




JHP 


ASUL PI 


/NOT A LEGAL REPLY 


16 76 






/ 








10 f 1 






/ 








17 00 






/ 








17 01 






/ 








17 02 






/ 








1 7 mi 






A c 1 in rt '1 

ASUUUl f 


0 1 sc 




/DISC IS CHOOSEN 


1704 


74 26 


74 10 




SK P 






17 05 


7427 


44 02 


ASUT Tl » 


TAPE 




/TAPE IS CHOOSEN 


17 06 


74 30 


11 20 




TA D 


FUNI T 




17 07 


7431 


3103 




OCA 


INUN IT 




1710 






/ 








1711 


7432 


4562 


ASULP2 » 


DECODE 




/GET THE OUTPUT UNIT 


17 12 


7433 


4703 




COUTPUT 




/OUTPUT OPTIONS 


1713 


7434 


45 73 




SEARCH 




/LOOKUP REPLY 


17 14 


74 35 


43 77 




ACPLl 




/REPLY L 1ST 


1715 


7436 


4554 




ASUG02 




/WHERE TO GO WHEN FOUND 


1716 


7437 


5232 




JMP 


ASULP2 


/NOT A LEGAL OUTPUT DEVICE 


1717 






/ 








1720 






/ 








1721 






/ 








1722 


7440 


4577 


ASUuD2 1 


D I SC 




/DISC IS THE CHOOSEN ONE, 


1723 


7441 


7410 




SKP 






1724 


7442 


4402 


ASUTT2» 


TAPE 




/TAPE IS THE CHOOSEN ONE 


1725 


7443 


1120 




TAD 


FUNI T 




1726 


7444 


3105 




OCA 


OUTUNI T 


/STASH AWAY 


1727 






/ 








1730 






/ 








1731 






/ 








1732 


7445 


1301 




TAD 


AAMHOW 


/GET THE NUMBER OF COPIES TO MAKE 


1733 


7446 


3106 




OCA 


OUTNUM 


/STASH AWAY NOW. 


1734 


7447 


1266 




TAO 


AASI21 


/GET THE SUE OF THE FIRST COPY 


1735 


7450 


3117 




DCA 


FSI2E 


/AND STASH IN THE Slit PARAMETER 


1736 


74 51 


12 67 




TAD 


AA8L1 


/GET THE FIRST BLOCK NUMBER 


1737 


7452 


3102 




UCA 


INBLOCK 


/AND SET UP THE READ 


1740 


7453 


1102 




TAD 


INBUOCK 


/AND THE 



1741 


7454 


3104 




DCA OUTBLOCK 


1742 


7455 


4554 




COPY 


1743 


7456 


12 70 




TAD AASi22 


1744 


74 57 


3117 




OCA rSI2E 


17 45 


74 60 


1271 




TAD AaBl2 


1746 


74 61 


3102 




DCA INBLOCK 


1747 


7462 


1102 




TAD INBLOCK 


I7;>fe3 


74 63 


3104 




DCA OUTBLOCK 


1751 


7464 


4554 




COPY 


I7b2 


7465 


5552 




PIP 


1753 






/ 




1754 






/ 




1755 






/ 




1756 






/ 




1757 






/ 




1760 






/ 




1761 






/ 




1762 






/ 




1763 






/ 




1764 






/ 




1765 






/ 




1766 


7466 


0000 


AASI21 , 


0 


1767 


7467 


00 00 


AABLl, 


0 


1770 


7470 


0000 


AASI22* 


0 


1771 


7471 


0000 


AABL2» 


0 


1772 






/ 




17 73 






/ 




1774 






/ 




17 75 






/ 




1776 








AASUC=AASiHl 


1777 








AASUCS-. -AASUC 


2000 






/ 




2001 






/ 




2002 






/ 




2003 






/ 




2004 






/ 




20 05 






/ 




2006 






/ 




2007 






/ 




2010 






/ 




2011 






/ 




2012 






/ 




2013 


7472 


0046 


ASYSL, 


TINDEX-DIALSYS 


2014 


74 73 


03 00 




DI ALSYS 


2015 


74 74 


00 20 




SYSS BLOCK-TI NO EX- 


2016 


7475 


0350 




TINDEX+TILEN 


2017 






/ 




2020 






/ 




2021 


7476 


1000 


AUNTL. 


TUPPER~TL0WER*1 


2022 


7477 


0000 




TLOWER 


2023 


7500 


0000 




0 


2024 






/ 




20 25 






/ 




2026 






/ 




2027 






/ 




2030 






/ 




2031 






/ 




2032 






/ 




20 33 






/ 




2034 






/ 




20 35 






/ 




2036 






/ 




2037 






/ 





/AND THl write. 
/COPY Trit SELlCTeD BLOCKS. 
/THE THE SECOND COPY 
/STASH That AwAY 

/THE THE SECOND STARTING BLOCK NUMBER 



/SET UP FINAL COPY 
/AND DO IT 

/FINALLY RESTART PIP. 



/SI2E or THE FIRST COPY 

/BLOCK NUMBER OF THE FIRST COPY. 

/SI2E OF THE SECOND COPY 

/BLOCK NUMBER OF THE SECOND COPY. 



/POINTER TO COMMON TABLE 
/SI2E OF MOVE. 



20 4!^ 


/ 


2i341 


/ 


20 42 


/ 


2043 


/ 


20 44 


/ 


2fe3 45 


/ 


2246 


/ 


20 47 


/ 


2050 


/ 


2051 





20 52 


/ 






/ 




2054 


/ 




20 55 


/ 




20 56 


/ 




2057 


/ 




20 60 


/ 




2061 


/ 




2«62 


/ 




20 63 


/ 


01 SK u)EF I 


2i;64 


/ 


2065 


/ 




2366 


/ 




2;i67 


/ 




2070 


/ 




2?71 


/ 




255 72 


/ 




22 73 


/ 




20 74 


/ 




2^5 75 


/ 




2276 


/ 




2077 




OmAW=6605 


21 00 




UL- f1« -0 0 j3 1 


2101 






2102 




UL AL -0015 


2103 




0tAC=6616 


2104 




SE =6 62 1 


2105 




D I SK =6623 


2106 




npTM— AA1 1 


2107 




nCAP~A«.1'J 

UoAL-OoIjC 


2110 




J] nL-OOip 


2111 




U 1 rlA -6616 


2112 




nir — A <.oi 


2113 




UaAL -ooio 


2114 






2115 




Url AL -0 Oc 0 


2116 


/ 




2117 


/ 




2120 


/ 




2121 


/ 




2122 


/ 




2123 


/ 




2124 


/ 




2125 


/ 




2126 


/ 




2127 


/ 




2130 


/ 




2131 


/ 




2132 


/ 




2133 


/ 




2134 


/ 




2135 


/ 




2136 


/ 




2137 


/ 




2140 




DCLA=6751 


2141 




0L0C=6732 


2142 




DL0R=6733 


2143 




0l0W=6735 


2144 




DCHPS6737 


2145 




DRDAS6734 


2146 




0RDC=6736 


2147 




0RDSS6741 


2150 




DCLS=6742 



JIb^ rjLr i:U T IO\S FOR THE RFge 



RK08 DISK OEF! NI TI ONS. 



2151 




DM NT =6 74 3 


iil52 




DSKC=6 74 5 


2153 




0SKT=6746 


i;i54 




0SKES6747 


2155 




0RWC56752 


2\bt 




0LWCS6 75 3 


2157 




0LCA=6755 


2160 




0RCAS6757 


2161 


/ 




2162 


/ 




cl63 


/ 




2164 


/ 




2165 


/ 




2166 


/ 




2167 


/ 




2170 


/ 




2171 


/ 




2172 


/ 




2173 


/ 




2174 


/ 




2175 


/ 




2176 


/ 




2177 


/ 




2200 


/ 




22 01 


/ 




2202 


/ 




22 03 


/ 




2204 


/ 




2205 


/ 




22 06 


/ 




2207 


/ 




2210 


/ 




2211 


/ 




2212 




EJECT 



^213 






/ 






2214 






/ 






2215 






/ 






2216 






/ 






2217 






/ 






2220 






/ 






2221 






/ 






2222 






/ 






2223 






/ 






2224 






/ 






222t? 






/ 






2226 


7501 


0000 


RF08W, 


0 




2227 


7502 


1767 




TAD I 


RRRT 


2230 


7503 


3770 




OCA I 


WWWT 


22 31 


7504 


5307 




JMP 


RRC 


22 32 






/ 






2233 


7505 


00 00 


RF08W, 


0 




2234 


7!p06 


/305 




CLA CLL 


lAC RAL 


223i> 


7i?07 


1371 


RRC, 


TAD 


RRR 


2236 


7510 


3372 




DCA 


RRT 


2237 


7511 


45 55 




SETA 




2240 


7bl2 


1417 




GETA 




2241 


7513 


0060 




AND 


L7 


2242 


7514 


3362 




DCA 


RUNIT 


22 43 


7515 


1417 




GETA 




22^4 


7516 


3363 




DCA 


rloc 


2245 


7517 


1417 




GETA 


2246 


7520 


3364 




OCA 


RNUM 


2247 


7521 


1417 




GETA 




2250 


7522 


3365 




OCA 


RF IRST 


22 51 


7523 


1074 




TAD 


BNUM 


2252 


7524 


0060 




AND 


L7 


2253 


7525 


3366 




OCA 


ROUT 


2254 






/ 






22 55 






/ 






2256 






/ 






2257 






/ 






2260 


7526 


1364 


ROK, 


TAD 


RNUM 


22 61 


7527 


7650 




SNA CLA 




2262 


7530 


5774 




JMP i 


RRRET 


2263 


7531 


1366 




TAD 


ROUT 


2264 


7532 


7041 




CIA 




2265 


7533 


1364 




TAD 


m UM 


2266 


7534 


7510 




SPA 




2267 


7535 


53 56 




JMP 


RF IT 


2270 


7536 


3364 




OCA 


RNUM 


2271 


75 37 


47 72 


RRTRY, 


JMS I 


RRT 


2272 


7540 


5773 




JMP I 


RRERR 


2273 


7541 


3363 


RRGOOO# 


OCA 


RLOC 


2274 


7542 


1362 




TAD 


RUNIT 


2275 


7543 


1054 




TAD 


L10 


22 76 


7544 


3362 




DCA 


RUNI T 


22 77 


7545 


1365 




TAD 


RF IRST 


2300 


7546 


1366 




TAD 


ROUT 


2301 


7547 


3365 




DCA 


RF IRST 


2302 


7550 


1020 




TAD 


L20 


23 03 


7551 


33 66 




OCA 


ROUT 


2304 


75 52 


53 26 




JMP 


ROK 


23 05 






/ 






2306 






/ 






2307 






/ 






2310 






/ 






2311 






/ 







/DISK»READ SETUP ROUTINE 
/ADDRESS OF TREAD 

/MOVE TO TWRIIE FOR ThE ARGUEHENT GETTER. 
/GO TO THE COMMON AR G GETTE^. 

/DISK-WRITE SET-UP ROUTINE 

/+2 IN THE AC TO ADO THE READ ROUTINE ADDRESS 

/POINTER TO THE READ ROUTINE 

/SAVE IN THE GO- TO LOCATION. 

/IMTIALUE THE ARGUEMENT GETTER 

/GET THE FIRST ARGUEMENT 

/CHOP OFF RANDOM UNITS BITS. 

/STASH AWAY NOW. 

/GET THE NEXT ARGUEMENT NOW, 

/SAVE AWAY IN THE LOCATION WORD 

/NOW GET THE NUMgER OF BLOCKS TO TRANSFER 

/AND STASH AWAY NOW. 

/NOW GET THE FIRST BLOCK TO BE TRANSFERRED 
/AND STASH AWAY ALSO. 

/NOW GET THE NUMBER OF BUFFERS AVAILABLE 
/JUST GET HOW MUCH GOES INTO FIELD 0 
/AND STORE IN THE FIRST TIME THROUGH BIT, 



/GET THE NUMBER LEFT TO DO 
/STILL SOME MORE??? 
/NOPE, EXIT NOW, 

/TEST TO SEE IF ITLL FIT THIS TIME. 
/NEGATE. 

/NUMBER LEFT 
/TEST ^JOw 

/ITLL FIT. GO AND READJUST COUNT NOT 
/STORE AWAY NUMBER TO GO NEXT TIME. 
/GO 00 THE DISK OPERATION. 

/DISK ERROR HAS OCCURED. 

/CLEAR The LOCATIONTO 0000 

/SOP UP TO THE NEXT MEMORY FIELD 

/SO THE OVERLAP WORKS CORRECTLY. 

/BOP UP THE BLOCK NUMBER BY THE NUMBER DONE 

/SO THAT Ulll PICK UP FROM kHERL WE LEFT OFF. 
/SET THE NUMBER OF BLOCKS TO DO TO 20 
/WHICH IS THE NUMBER IN 3. MEMORY FIELD 
/AND GO BACK AND DO THE NEXT ONE. 



;^312 






/ 










7553 


7541 




kRGOOD 




/ir ACCEPTED AS IS 


2314 


7554 


75 37 




hRTRY 




/TO -<ETR^ The OPERATIDN. 


2315 


7555 


7541 




RRGOOU 




/TO T^Y TO SKIP PAST T HL lR^OH 


2316 






/ 








^317 






/ 








i^320 






/ 








2321 






/ 








2322 


7556 




RF IT , 


CLA 




/ITll FIT ThS TIME. SET TO CORRECT OUTPUT NLh'^BER 


23 23 


7557 


1364 




TAD 






2324 


75 60 


33 66 




OCA 


RCUT 


/NU^dE-? TO JO IS THE EXACT NUMBER 


2325 


7561 


5326 




jVP 


ROK 


/AND GO BACK AND TRY AGAIN 


2326 






/ 








2327 






/ 








2330 






/ 








2331 


7562 


0000 


RUNI T, 








2332 


7'363 


0000 


RLOC » 


0 






23 33 


7564 


0000 


RNUM » 








2334 


7565 


0000 


RF IRST , 


0 






2335 


7566 


0000 


ROUT , 








23 36 


7567 


14 00 


RRRT , 


TREAD 




/POI NTS TO T RE AO 


2337 


757^5 


1412 


WW WT . 


TWRI TE 




/POINTS TO TWRITE 


23 40 


7571 


7626 


RRRt 


HE AOSK 




/POINTS TO A HEAD DISK ROUTINE 


2341 


7572 


0000 


RRT » 


0 




/FINAL POINTER 


2342 


7i)73 


7615 


RRERR » 


RERR 




/POINTER TO THE ERROR RECOVERY ROUTINE 


2343 


7574 


1476 


RRRET, 


TEXl T 




/MASS I-O EXIT LOCATION 


2344 






/ 








2345 






/ 








2346 






/ 








2347 






/ 








23 50 








AAMHOW 


=RF08R 


/DEFINE A TEHPOrtARY FOR THE SPECIAL COrltS 


2351 






/ 








2352 






/ 








2353 






/ 








2354 






/ 








2355 






/ 








2356 






/ 








2357 






/ 








2360 






/ 








2361 






/ 








2362 






/ 








2363 






/ 








2364 






/ 








2365 






/ 








2366 






/ 








2367 






/ 








2370 








EJECT 







2371 / 

2372 / 
23 73 / 
2374 / 

23 75 / 

2376 / 

2377 / 

24 00 / 

2401 / 

2402 / 
24 03 / 
24 04 / 
2405 7575 0601 
2405 7576 4^304 
2405 7577 1123 
2405 7600 1^540 
2405 7601 0!?22 
2405 7602 2217 

2405 RRBAD, TEXT 'T A DISK ERROR 
24 06 76 03 22 43 

2406 7604 0610 
2406 7605 0123 
2406 7686 4017 
2406 7607 0303 
2406 7610 2522 
2406 7611 2205 
2406 7612 0440 
2406 7613 4040 

2406 FHAS OCCURRED 

2407 7614 4043 
2407 " 

2410 / 

2411 / 

24 12 / 

2413 / 

2414 / 

2415 / 

2416 / 

2417 / 
24 20 / 

2421 / 

2422 7615 3001 RERR, OCA LOCI /STASH AwAY IN A PLACE 1 KNOW IS FREE 

2423 7616 4564 MOVE /MOVE IN THE DISK ERROR MESSAGE 

2424 7617 7575 RRBAQ 

2425 7620 2101 TMAIND 

2426 7621 0020 20 /32CHAkS=i6 wORDS=20 «0RDS 

2427 7622 1001 TAO LOCI /RETRIEVE THE dLCCK NUMBER 

2430 7623 4625 JMS I RREREO /CALL THE ERROR MESSAGE DISPLAY ROUTINE 

2431 7624 7553 REWERE /LIST OF RETUR^ OPTIONS. 
24 32 / 

24 33 / 
24 34 / 

2435 7625 2037 RREREO* TTBC /POINTER TO THE ERROR MESSAGE DISPLAY ROUTINE 

24 36 / 
2437 / 
24 40 / 

2441 / 

2442 READSK = . /THE DISK READ ROUTINE GOES HERE. 
24 43 / 

24 44 / 
2445 / 
24 46 / 
2447 / 



2450 / 

2451 / 
24i)2 / 

2453 / 

2454 / 

2455 EJECT 



24 56 






/ 








24 57 






/ 








2460 






/ 








24 61 






/ 








24 62 






/ 








2463 


7626 


0000 


RFREAD 


f 0 






24 64 


76 27 


52 34 




JMP 




RFCOMM 


24 65 






/ 








24 66 


7630 


0000 


RF WRITE, 0 






24 67 


76 31 


12 30 




TAD 




RFWR ITE 


24 70 


76 32 


32 26 




DC A 




RFRE AD 


24 71 


76 33 


73 05 




CLA 


CLL 


lAC RAL 


24 72 






/ 








24 73 


76 34 


1343 


RFCOMM 


TAD 




RFDMAR 


24 74 


7635 


32 75 




DCA 




RF INST 


24 75 


76 36 


6601 




DCMA 




24 76 


7637 


1740 




TAD 


1 


RRLOC 


24 77 


76 40 


1047 




TAD 




L7777 


2 b 00 


76 41 


3351 




DCA 




RFOBAD 


25 01 


76 42 


1063 




TAD 




M6 


25 02 


76 43 


3066 




DCA 




TEMPI 


2503 


76 4 4 


17 41 




TAD 


I 


RROUT 


25 04 


7645 


7053 




CIA 


RTR 




25 05 


76 46 


70 12 




RTR 






2506 


76 4 7 


7010 




RAR 






25 07 


76 50 


0064 




AND 




L7400 


2510 


7651 


3350 




DCA 




RFD8WC 


2511 


76 52 


1737 




TAD 


I 


RRUNIT 


2512 


76 53 


0021 




AND 




L7770 


25 13 


76 54 


66 15 




DI ML 




^ p 1 


7 65 5 


17 3 7 




TAD 


I 


RRUN IT 


2515 


76 56 


0060 




AND 




L7 


2516 


7657 


7106 




CLL 


RTL 


2517 


76 60 


7006 




RTL 






252 0 


7661 


7004 




RAL 






25 21 


76 62 


3065 




DCA 




TEMP 


2522 


76 63 


17 42 




TAD 


I 


RRFI RST 


25 23 


76 64 


7012 




RTR 






2 52 4 


7665 


7012 




RTR 






25 25 


76 66 


03 44 




AND 




RFL377 


2526 


7667 


1065 




TAD 




TEMP 


25 2 7 


7670 


6643 




DXAL 




2 53 0 


76 71 


1742 




TAD 


I 


RRFIRST 


25 31 


76 72 


4550 




R0R6 






2532 


7673 


7004 




RAL 






25 33 


76 74 


0064 




AND 




L7400 


25 34 


7675 


0000 


RF INST # 


0 






25 35 


7 A 7 A 


45 56 




CHECKIO 




2536 


7677 


2067 




ISi 




TEMP2 


2537 


7700 


5304 




JMP 




RFNOSK 


2540 


7701 


2066 








TEMPI 


2541 


7702 


5304 




JMP 




RFNOSK 


2542 


7 7 03 


5334 




JMP 




RF08NO 


2543 


7704 


6623 


RFNOSK , 


DISK 






2544 


7705 


i>276 




JMP 




RF INST + 1 


2545 


77 06 


6621 




DFSE 






2546 


7707 


5332 




JMP 




RFGX T 


2547 


7710 


6616 




DIMA 






25 50 


7711 


03 45 




AND 




RF1003 


2551 


7712 


7112 




CLL RTR 




25 52 


7713 


13 50 




TAD 




RFDBWC 


25 53 


7714 


76 50 




SNA CLA 




2554 


7715 


5332 




JMP 




KFGXT 



/RF08 READ-^RITE ROUTINES. READ ENTRY 
/GO TO COMMEN ENTRY 

/RF08 WRITE ENTRY 

/REPLACE THE READ ENTRY BY TriE WRITE FOR 
/THE RETURN 

/*2 TO MAKE DMAK A OMAW 

/ADD A READ INSTRUCTION TO THE AC. 

/NOW STORE AWAY THE CORRECT FUNiCTION 

/CLEAR The disk status REGISTER 

/GET THE LOC TO WHERE WERE GOING TO 

/SUBTRACT 1 FOR GOOD MEASURE 

/STOKE Away MOW 

/SET UP THE RANDOM COUNTER 

/WHICH TIMES OUT THE DISK THERE FLAG. 

/GET THE NUMdER OF 3L0CKS TO 00 

/MOVE TO BITS 0-3 OF THE AC AND 

/NEGATE 



/CHOP OFF ANY CRaP W£ PICKED UP ON THE WAY. 

/STASH AWAY NOW 

/GET THE FIELD BITS ON 

/AND OUT UNIT aiTS 

/AND SET THE FIELD BITS IN THE STATUS REG. 
/NOW GET THE UNIT FOR REAL 
/JUST THE UNIT BITS 



/SHIFT OVER TO EXTENEO DISK BITS 

/SAVE FOR A SECOND 

/GET THE FIRST BLOCK NUMBER 

/IGNORE 4 LOW ORDER BITS 
/JUST BLOCK BITS OF DISK 
/ADO IN DISK SELECTION BITS 
/SET UP THE DISK ADDRESS. 
/RECALL THE STARTING BLOCK NUMBER 
/ROTAE LOW BITS TO BITS 0-3 OF 
/THE AC. THIS SAVES A LOC. 
/CHOP OFF STRAY CRAP 

/CORRECT DISK INSTRUCTION GOES HERE 
/CHECK KEYBOARD NOW 
/INCREMENT THE FAST COUNTER 
/DIDNT SKIP 

/NOW INCREMENT THE SLOW COUNTER 
/IT DIDNT SKIP EITHER 

/DISK FLAG DIDNT RAISE- PRObABLY NO DISK. 

/AND NOW CHECK THE DISK FLAG 

/IT OIONT SKIP EITHER. HANG AROUND. 

/WAS THERE AN ERROR? 

/NOPE. GOOD RETURN 

/AN. ERROR, WAS IT A MYTHICAL ONE 

/THIS CHECKS IMPORTANT BITS 

/ALSO CHECK TO SEE IF OPERATION COMPLETED 
/ALL WELL???? 
/ALL IS WELL. EXIT 



2b5^ 


7716 


6645 




JX AC 


/s.CAO I, The txTt-\nEJ REGISTER 




7717 


0344 




A,vJ RFL3 77 


/CHOP OFF Cr^AP 




7720 


7106 




ClL rtl 




2t>6i!) 


77 21 


70 06 




RTL 


/ROTATE T:^ GG:yj block NU^uER rflTS 


2!?61 


7722 


30 65 




OCA 11^.^ 


/SAVE A SLJC:\a 


2b62 


7723 


6626 




D-^ AC 


/■^iJ^ PIC■^ Twl ;_ow ORDLK bits 


2b6i 


77 24 


0064 




a:.0 l74;30 


/1G\0RE ^ORO bTUFF 




77 25 


7106 




CLL RTl 






7726 


70 06 




^Tl 


/Shift ivto cjRRect place 


2t)66 


7727 


7004 




f<AL 


/WHICH IS -ITS 8-11 JF THE AC. 




7 7 3e 


1065 




TAD TEVP 


/Aou I'j The correct factck 


2bl^ 


7731 


5626 




JNP I RFREAJ 


/A'-.U KlTJRv To the CALLER 


2b71 






/ 






2b72 






/ 






2t)73 






/ 






2:?74 


7732 


2226 


Rrax T» 


ISz5 RFRtAO 


/ALL IS .^LLL. SKIP PAST ERROR RETURN 


2b75 


7733 


5626 




JMP I RF RE AO 


/AND EXIT TC THE USER 


2b76 






/ 






2t?77 






/ 






26 00 






/ 






2601 






/ 






2602 






/ 






2603 


7734 


4551 


RF"0aNO . 


Dl SPLAY 


/JISK FLAG NOT UP. GIVE ERROR MESSAGE 


2604 


7735 


7752 




RF08N2 




2605 


7736 


5334 




JMP RF08NO 


/ITS kH livFlNlTE WAIT, 


2606 






/ 






2607 






/ 






2610 






/ 






2611 






/ 






2612 






/ 






2613 






/ 






2614 






/ 






2615 






/ 






2616 


7737 


7t>62 


RHUN IT , 


RU.Nil T 


/POIiNTER TO PREVIOUS SECTION INFO 


i!6l7 


7740 


/563 


RRLOC, 


RLOC 




2620 


77 41 


7566 


RROUT, 


ROUT 




2621 


7742 


/565 


RRFI RST 


» HF I RST 




2622 






/ 






2623 


77 43 


66 b3 


RFDMAR , 


OMAR 


/ACTUAL RF08 DISK READ I QT 


2624 


7744 


0377 


RFL377 , 


377 




26 25 


77 45 


11^03 


Rri0B3, 


1003 




2626 






/ 






2627 






/ 






2630 






/ 






2631 






/ 






2632 






/ 






2633 






/ 






2634 








HFDRAD=7751 


/UATa break ADDRESS 


2635 








RFD8/JC = ?750 


/^vORO COUNT LOCATION 


26 36 






/ 






2637 






/ 






2640 






/ 






2641 






/ 






2642 






/ 






2643 






/ 






2644 






/ 






2645 








»RF0BAD+1 


/ORIGIN PAST DATA BREAK 


2646 






/ 






2647 






/ 






2650 






/ 






2651 






/ 






2652 


7752 


0300 


RF08N2, 


LEFT+300 


/A90UT THE CENTER OF THE SCREEN 


2653 


7753 


0000 




TUP^340 





26b4 77!34 ^blt 

2bb^ 7700 X74^- 

2654 7756 ^411 

26b4 77e»7 2313 

2654 7762 3420 

26 54 TLXT "F\U 

2655 / 
26 56 / 
2657 / 
26 60 / 
26 61 / 
26 62 / 

2663 / 

2664 / 

2665 / 
26 66 / 
2667 / 
267a / 
2671 / 
26 72 / 
2673 / 

26 74 / 

2675 / 

2676 / 

2677 / 

27 00 / 

2701 / 

2702 Eject 



2703 






/ 








27 04 






/ 








27 05 






/ 








27 06 






/ 








2707 






/ 








27 10 






/ 








2711 






/ 








2712 






/ 








27 13 






/ 








27 14 






/ 








27 15 






/ 








2716 






/ 








2717 






/ 








27 20 






/ 








2721 








*R EAQSK- 


-40 0 


/ORIGIN This SECTION INTO FREE AREA. 


27 22 






/ 








2723 






/ 








27 24 






/ 








27 25 






/ 








2726 






/ 








2727 






/ 








C f Olw 


72 26 




Dif or An 
Mfv nt. AU » 


0 




/RK08 HE AU ROUTIfvjES 


27 31 


72 27 


52 34 




JM P 


RKCOMM 


/GO TO COMMON AREA 


27 32 






/ 








5 7 X X 




(A!7\ run 


rtl\ wn i i Li 


» 0 




/Dl/'DlQ iiDTTfT r'KiTDV Or^TkiT 

/KrsitJo WKIIL LNInY rUlNI 


< / 0*» 


72 31 


12 30 




T A n 
1 A U 


oil' i.i u T T r 


/KLr'LACL 1 HE HEAD ENTRY B" THE CORRECT 


07 Ttc; 


72 32 


32 26 




DC A 


RKHE AO 


/NR I TE ENTkY 


9 7 < A 


/ £ 0 0 


73 05 




CLA CLL 


I A C RA L 


/♦<J Tu MAKE THE READ A WRITE 


27 37 














27 40 


1 C.O*^ 


13 34 


nf\ UU nn » 


TAD 


HK uL UK 


/ADD IN THE READ INSTRUCTION 


27 41 




32 75 




OCA 


Dl/ 1 M C T 


/AND SAVE IN THE CORRECT INSTRUCTION WORD 










TAD I 


O 1 IKi 1 T 
KK U!N| 1 1 


/GET THE F lELO alTS 


y 7 4'< 
c / •♦0 


72 ^5 7 






AND 


1 7 77 iVI 

L/ //w 


/AND LOAD INTO THE COMMAND REGISTER 


07 

c / *f*t 


72 40 


1107 




TAD 


RKUH 1 V 


/INSERT CORRECT DRIVE NUMHER NOW, 


!J7 AS? 


72 41 


67 32 




DLOC 




/SEND TO JIMS CONTROLLER 




72 42 


1 7 n 

i / OO 




TAD I 


Dl^ 1 <M IT 

RK UN I T 


/NOW k^lELL GET THE UNIT BITS 


57 ^7 


72 43 


tJYU QiO 




AND 


L7 


/JUST The UNIT PORTION 


27 50 


72 44 


71 12 




CLL RTR 




/ROTATE TO BITS 0-3 


27 51 


72 45 


70 12 




RT R 






/ 


72 46 


17 30 




Tad I 


D 1/ T L> C T 

Nr\ I Kb 1 


/NOW ADD IN THE CORRECT BLOCK NUMBER. 


27 53 


12. Al 


30 13 




DC A 


RK TR CK 


/SAVE IN THE TRACK POINTER NOW 


27 54 


72 50 


1 7 32 




TAD I 


RKLOC 


/GET THE CORE LOCATION 


2755 


7251 


1047 




TAD 


L7 777 


/SUBTRACT 1 FOR THE D.B, 


2756 


72 52 


30 14 




OCA 


RKLOCC 


/SAVE IN A LOCATION POINTER NOW, 


2757 


72i>3 


1731 




TAD I 


RKOUT 


/GET THE NUMBER OF RECORDS TO 00 


27 60 


72 54 


70 41 




CI A 




/NEGATE IT NQW 


2761 


7255 


30 12 




OCA 


RKCUNT 


/SAVE IN THE COUNTER NOW. 


2762 


72 56 


52 63 




jM P 


nlMNOUr 


/UUN 1 bur ur 1 HL AUDricbb ANlJ TRACK FOR rlRST OPERATION 


2763 






/ 






2764 


7257 


1014 


RKBOP, 


TAD 


RKLOCC 


/GET THE LAST LOCATION 


2765 


7260 


1040 




TAD 


L400 


/BOP UP BY 400 TO THE NEXT CORE LOC. 


2766 


7261 


3014 




OCA 


RKLOCC 


/AND SAVE IT . 


ilbl 


7262 


2013 




ISi 


RKTRCK 


/BOP UP THE SECTOR BY 1 NOW. 


2770 






/ 








2771 


7263 


72 40 


RKNBOP, 


CLA CMA 




/PREPARE TO START THE NEXT OPERATION 


2772 


72 64 


6 7 42 




DCLS 




/CLEAR THE STATUS REGISTER ^'OW . 


27 73 


72 65 


7200 




CLA 




/CLEAR THF AC BECAUSE OClS OOESNT 


2774 


7266 


1023 




TAD 


M20 


/RESET THE TIME OUT COUNTER SO THAT 


2775 


7267 


3066 




OCA 


TEMPI 


/WELL KNOW IF WE TAKE TOO MUCH TIME. 


2776 


72 70 


1014 




TAD 


RKLOCC 


/GET THE LOCATION TO 00. 


nil 


72 71 


6755 




OLCA 




/SEND IT OUT TO THE CONTROLLER 


3000 


72 72 


1064 




TAD 


M400 


/SET THE V.OHU COUNT TO 1 RECORD (-400 wUROS) 


3001 


72 73 


6753 




OLWC 




/AND SEND IT TO THE CONTROLLER 



^5002 


/2/4 


1013 




TAD 


rktrck 


30 03 






/ 






3004 


7275 


0000 


RK INST , 


0 




30 0^> 






/ 






30 06 


72/6 


4556 




CHECKI 0 




30 07 


1211 


2i5 67 




IS£ 


TEMP2 


30 10 


7300 


t>306 




JMP 


RKNOSK 


3011 


73 01 


2066 






TEMPI 


3012 


7302 


5306 




JMP 


RKNOSK 


30 13 






/ 






3014 


73 03 


4551 




01 SPLAY 




301b 


7304 


7735 




KKBA0&177! 76kJ0 


3016 


7305 


5303 




JMP 


.«2 


3017 






/ 






30 20 


/306 


6745 


RKNOSK , 


OSKC 




3021 


7307 


74 10 




SKP 




3022 


731 0 


5313 




JMP 


. +3 


3023 


7311 


6747 




DSKE 




3024 


/312 


5276 




JMP 


RKlNST+1 


30 25 


7313 


6747 




DSKE 




3026 


7314 


5323 




JMP 


RKOUNl 


3027 


7315 


67 41 


RKSEKE , 


ORDS 




3030 


7316 


0327 




AND 


RKL40 


30 31 


7317 


7640 




SjfA CLA 


3032 


7320 


5351 




JMP 


RKOFF 


3033 


7321 


1013 




TAD 


RKTRCK 


3034 


7322 


5626 




JMP I 


RKKE AD 


3035 






/ 




3036 






/ 






3037 


7323 


2012 


RKDUNl f 


\Si 


RKCUNT 


^040 


/3 24 


5257 




JMP 


RK80P 


3041 


7325 


2226 




ISi 


RKREAO 


30 42 


73 26 


5626 




JMP I 


RKREAD 


3043 






/ 




3044 






/ 






30 45 






/ 






3046 






/ 






30 47 






/ 






3050 






/ 






3051 






/ 






3052 






/ 






30 53 


7327 


0040 


RKL40, 


40 




30174 


7330 


7565 


RKIKST. 


RF IRST 




30 5^ 


7331 


7566 


RKOUT. 


ROUT 




3056 


7332 


7563 


RKLOC, 


RLOC 




30 57 


7333 


7562 


RK UN I T , 


RU'^I T 




3060 


7334 


6733 


RKQLOR, 


QLDR 




3061 






/ 






3062 






/ 






3063 






/ 






3064 












3065 












3066 












3067 












3070 












3071 












3072 






/ 






30 73 






/ 






3074 






/ 






30 75 






RKL0CC=AUT05 




3076 






RKTWCK=AUT04 




3077 






RKCUNT=AUT03 




3100 






/ 







/NOW GET THE TRACK AND SECTOR IN THE AC. 

/DO RK08 INSTKUCTION 

/TEST THE KEY BOARD 

/AND ALSO THE TiME-OUT FLAG 

/STILL OK 

/HOW AQOuT THE SLOW COUNTER 
/STILL OK 

/ERROR . NOT DONE YET. A BOO BOO. 
/RK08 BAD MESSAGE FOR ORIGIN AT 7600 
/WAIT FOREVER 

/NOW TEST THE DISK FLAG. 

/NOT COMPLETE. TEST THE ERROR FLAG, 

/COMPLETE. TEST THE ERROR FLAG ANYWAY 

/ALSO CHECK THE POSSISalLTY OF AN ERROR WITH NO COMPLETION FLAG 
/NOT YET DONE. HANG AROUND AWHiLE 
/TEST THL E^KOR FLAG 

/WEVE FI^aSHED ^ITH THIS SECTOR. CHECK FOR MORE TO GO 
/READ IN THE STATUS REGISTER 
/WAS I T A TRACK MISS 
/? 

/IT WAS. DRIVE dLEW IT. A NO-NO 
/NOW GET THE RECORD THAT FaIlED. 

/RETURN ON AN ERRQR CONDITION TQ DISPLAY MESSAGE. 

/BOP UP The RECORD COUNT. DONE? 
/NOT YET DONE. BOP ALL AND GET NEXT. 
/GOOD OPERATION. GOOD RETURN. ALL IS WELL 
/RETURN TO CALLER 



/POINTER TO FIRST BLOCK NUMBER 
/POINTER TO THE NUMBER OF BLOCKS TO DO 
/POINTER TO THE CORRECT LOACTION TO DO 
/POINTER TO THE UNIT AND FIELD HITS 
/ACTUAL RK08 READ INSTRUCTION 



/THESE NEXT DEFINITIONS ARE DEFINED AS 
/AUTO-INHlX REGISTERS BECAUSE OF SPACE 
/REQUIREMENTS. NO ROUTINE WHICH WE CALL 
/WILL TOUCH ThEM. BECAREFuL OF THIS 
/IN THE FUTURE* IF DISPLAY OR CHECKIO 
/SHOULD EVER NEED TO USE THEM. 



/CONTAINS THE CORE AODRESS-1 FOR THE PRESENT TRANSFER 
/CONTAINS THE TRACK AND SECTOR PRESENTLY BFiNG USED 
/CONTAINS -THE NUMBER OF RECORDS TO GO. 



3101 / 
31 H2 / 

3103 / 

3104 / 

3105 / 

3106 733t> '^lA-l RK8AD. LefT*140 /i,'-iCl,JL J bt GOG J ENOUG-i 

3107 7336 i5J2^ TJP=34i5 /ABOUT Thl CV^^tk 
-61U 7337 ^bd4 

3110 7340 ^211 

3110 7341 ^605 

3110 7342 4016 

3110 7343 1724 

3110 7344 4027 

3110 734b 1722 

3110 7346 1311 

3110 7347 1607 

3110 7350 3400 

3110 te;xt "fd«ive. not '^OHKINGN" 

3111 / 

3112 / 

3113 / 

3114 / 
311i> / 

3116 / 

3117 / 

3120 / 

3121 / 

3122 73bl 3230 RKOFF, DCA RKWRlTt /SET JP A COUNT OF 4096 IN A TeMPQRARY REGISTER 

3123 73132 4bbl DISPLAY /DISPLAY THE ERROR MESSAGE FOR A FEW SECONDS 

3124 7353 7/70 RK 0FF2S177 ! 7 600 /POINTER TO 7600 ERROR MESSAGE 

3125 7354 2230 IS2 RKWRITE /INCREMENT AND TEST THE COUNTER 

3126 7355 5352 JMP .-3 /DISPLAY FOR ABOUT 1 Z) SECONDS. 

3127 7356 7240 CLA CMA /CLEAR THE STATUS REGISTER BITS 

3130 7357 6742 DCLS /CLEAR THE STATUS REGISTER 

3131 7360 6751 DCLA /OO A POk^ER CLEAR 

3132 7361 4^56 RKHANG, CHECKIO /NOW »JAIT FOR THE RESYNC OF THE DISC 

3133 7362 6747 OSKE /WAS THERE AND ERROR ON THE RECALIBRATE? 

3134 7363 7410 SKP /NOPE. NOT YET ANYWAY. 

3135 7364 t33l5 jMP RKSEKE /THERE WAS AN ERROR. GIVE TH£ MESSAGE 

3136 7365 6745 DSKC /IS THE RECALIBRATE FINISHED, 

3137 7366 5361 JMP RKHANG /NO?E. WAIT FOR IT. 

3140 7367 5263 JMP RKN80P /RETRY THE OPERATION NOW. 

3141 / 

3142 / 

3143 / 

3144 / 

3145 / 

3146 / 

3147 / 

3150 / 

3151 / 

3152 / 

3153 7370 0240 RK0FF2, lEFT*240 /ABOUT CENTER SCREEN 

3154 7371 mSid TOP-340 

3155 7372 0623 
3155 7373 0t?05 
3155 7374 1340 
3155 737b 0t?22 
3155 7376 2217 

3155 7377 2234 

31b5 TEXT "FSEEK ERROR\" 

3156 / 

3157 / 



3160 / 

1161 / 

1162 / 

3163 / 

3164 / 
3l6i? / 

3166 / 

3167 / 

3170 / 

3171 / 

3172 / 

3173 / 

3174 / 

31 7b / 

3176 / 

3177 / 
/ 

32 01 / 
32 02 / 
3203 / 
3234 / 

3205 / 

3206 / 
32 07 / 

3210 / 

3211 / 

3^ii2 Eject 



3213 
3214 

32155 
3216 
3217 



NO ERRORS 



SYMBOL 


VALUE 


DtF 


f%LF'E^E\C£S 




AAA 


b30o 


0544 


0b 11 






AA AA AA 


b2i3i 


05i55 


04 2 7 


t" 4 b 3 


/1^61 


AA AEND 




1035 


1 iJ 56 






AAAGET 




074 7 


0 3 32 


1 1 b 


1^'2 6 


AAAOKG 


&3i)4 


0616 


04 ?4 


1? bl b 


Jo 04 


AAAPUT 


bl61 


033^ 


03 21 






AA AT AB 




1030 








AA Al 


b2 lb 


04 27 


04 37 


1^ 44 3 




AAA2 




05/2 


0 b 6 1 






AABLAH 


bl72 


03 4 7 


0255 






AA8L0C 


i>3b3 


0635 


04 65 


0 46/ 


0513 


AABLl 


7467 


176/ 


17 36 






AABL^ 


7471 


17 /I 


17 4 5 






AACR 


b4 4b 


10 24 


10 63 






AAEND 


S226 


04 47 


10/6 






AAGET 


5163 


0332 


022«fl 






AAGET2 


t?41b 


0 7 67 


0 / b3 






AAGET3 


b424 


077/ 


0/70 


1013 




AAGET4 


b427 


1002 


0/7 5 






AAGLl 


&4 60 


1046 


1005 






AAGOl 


b464 


1055 


1006 






AALI M 


5367 


0641 


00 11 






AALI MC 


tJl64 


0333 


02 34 






AALL 


b7b2 


1471 


1432 


1 436 


1456 


AALOOP 


b714 


1423 


1455 






AAMHOW 


7b01 


2350 


1662 


1732 




AA0UT8 


b3b6 


0620 


04 71 


0 1?1 4 


0610 


AAPUT 


b2i20 


0411 


03 30 


0 430 


0434 


AASUl 


7466 


1766 


17 34 


17 76 




AASIZ2 


74 70 


1770 








AASUC 


74 66 


17 /6 


16 36 


164 7 


1777 


A A SUCH 


7411 


1655 


16 40 






AASUCS 


0004 


17 /7 


16 37 


1 650 




AASYSC 


7400 


1634 


lb27 






AATAB 


b223 


0441 


10 77 






AAUNIT 


5353 


061b 


0463 


0 62 4 




AAUNTC 


7405 


164i. 


lb 30 






AB AO 


5112 


0243 


02 35 


0 65 7 


0660 


A80I S 


5477 


1114 


12 40 






A9G1 


5761 


1522 


1251 






ABLl 


5755 


1511 


12 50 






ABSOL 


5600 


123/ 


06 3b 


1 2b 2 




ABSTMP 


57 65 


1613 


12 46 


126 7 


1355 


ACOPR 


56 36 


1314 


1376 






AC0PR2 


5656 


1343 


1406 






ACOPT 


5640 


1316 


1374 






ACQPT2 


5660 


1345 


1404 






ACOP Y 


5630 


12 7 6 


13 03 


1 32 3 


13 73 


AC0PY2 


5650 


1326 


1333 


1351 


1403 


ACPGl 


56 74 


1373 


13 02 






ACPG2 


5700 


1403 


1332 






ACPLl 


43 77 


1371 


1301 


1331 


16 73 


ACR 


5132 


02 72 


0656 






ACRCHK 


5016 


0116 


0106 






ACr^R 


5134 


02 76 


02 54 


0263 


0272 


ACl 


5165 


0340 


0232 


0277 


04 13 


AEND 


5113 


0247 


0230 


0665 




AEND2 


5120 


0254 


0251 






AGET I 


5444 


1021 


0/61 


0762 


^j771 


AGETN 


37'IA 


1412 


1322 


1 350 


1465 


AGNUM 


5731 


144^ 


1324 


1352 


1420 



SYM30L 


VALUE 


OEF 


HEFERENCES 






AGl 


b370 


0656 


13233 










AG2 


&4 70 


1067 


0414 










AL AS TC 


bs5 66 


06 4^ 


05 42 


«3 55 1 








ALD 


!27 b0 


1463 


14 2o 










Al OOP 


t)0 67 


0215 


02 40 


0 24 3 


0<^ 73 






A L 40 


53 54 


06 36 


0442 


0452 








Ai_ 43 




06 37 


04 36 


0 54 1 


05 46 


0 5d 3 




AN TAPE 


b0 6 b 


0211 


02 53 










AOK 


bl 10 


02 3 1 


06 66 










AP 


b2 2ii 


04 34 


04 20 


0 42 4 


10 7 0; 


107 1 


1073 


AP AR T2 


50 33 


0142 


01 23 


0 15 1 








AP CR 


b221 


04 36 


10 67 










APUT I T 


5150 


0v5lD 


02 37 


0257 


02 62 


0 301 


03 05 


ASCGO 


bl 74 


03P6 


0111 










AS CG02 


b3 77 


06 76 


01 46 










AS CHI 


b017 


0121 


0312 


0 35 6 








AS CH2 


50 4 3 


0163 


06 76 


156 6 








CM 


b0e^ 


0 0 7 4 


06 37 


0112 








AS C ! NP 




0062 


0 0 7 D 


1232 








asclpt 


b042 


01^5 


0150 










ASCLST 


437/ 


0064 


00 65 


0110 








asclto 


4377 


0065 


0145 










AS COUT 


47 03 


0063 


0143 


123 3 








AS CT 


b024 


0132 


03 57 










asctt 


5i3 47 


0167 


06 77 










ASCII 


b02ti. 


0122 


0362 










AS CT 2 


50 4 4 


0161 


0702 










A S E T 


1 5 k;2 


02 54 


0511 


0260 








ASET I 


51 62 


0331 


0201 










AS RF B 


52522 


0130 


03 61 










AS RP 82 


504t> 


0165 


0/01 










ASUDDl 


7425 


1703 


1606 










AS UDD2 


74 40 


17 22 


1615 










AS UG 01 


45 50 


1604 


16 74 










ASUG02 


4t>54 


1613 


1715 










ASUlPl 


7417 


1670 


1604 


160 7 


16 75 






AS ULP2 


7432 


1711 


1613 


1 61 6 


1716 






ASUTTl 


742 7 


1705 


16 05 










AS UT T2 


74 42 


1724 


16 14 










AS YSL 


74 72 


2013 


16 35 










AUt^TL 


74 76 


2021 


16 46 










A'JTOl 


0010 


0131 


1415 


1 4 1 7 


14 2 6 


1435 


1466 








21 21 


2 l3 0 




2151 


21 52 


AUT02 


0011 


0132 


14 67 


165 6 








AU 103 


0012 


0133 


2366 


2 37 0 


23 73 


2375 


2405 


AUT04 


0013 


01^4 


2371 


2401 


30/6 






AU T05 


00 14 


0135 


2374 


2402 


3075 






AUT06 


^5015 


0136 


i^624 










AUTO? 


00 16 


0137 


1427 


1433 


1434 


2060 


2071 


AUTDB 


0017 


0140 


0512 


025/ 








AUXI N 


4574 


05 52 


0^61 


0 42 0 


02 22 






AUXOUT 


4575 


0554 


2507 


1216 


1221 


1242 


1310 


A377 


5443 


1020 


1014 










A5262 


5361 


0632 


0530 










A6 04 3 


5362 


0633 


05 33 










BASSEM 


3634 


0406 


03 65 


0414 


04 53 






BBBASE 


4270 


1171 


1134 










BBB8BJ 


4316 


1225 


1212 










B5BHDR 


4211 


1103 


1127 










BBBPUT 


3627 


0400 


0367 










BBOUMp 


4267 


1170 


10 72 










B8LT 


4376 


1313 


1205 











1417 1426 1435 1466 1 71 5 1717 1 723 1724 1 725 1726 l 727 1733 1 734 1 766 l77l 1 7 76 2000 2007 2114 2li5 2ll 7 
2130 2150 2151 21 52 2 154 2i7i 2210 222C 2225 2232 2237 I2l2 I2l3 ^ 



cv Mam 


u A i 1 1 r 


Utr 


REFERENCES 










12 43 








BB Nl 




1 "3 <m 


12 37 








Bo IMc 




1 5 A < 
Ic OO 


1251 








UD n T KIT 
DO U 1 IN 1 


■♦t / C 


1 1 7 < 


1076 


1142 






BB OO T 






0126 


0130 


0132 


0146 


BB OU T 


4 2 73 


12 01 


05 57 


1206 


1232 


1 'J 7 A 


88 TA PE 


3^ 46 




0236 








BC ER R 


37/5 


05 7 7 


0457 








BC HA R 


01 0b 


04 14 


03 57 


0432 


0441 


053 0 


arur 
ourit. i/r\ 




io;? / o 


0356 


0375 


0455 




BP ur Y 
KU ML A 


36 21 


03 71 


0404 








□ w u u <N 1 


0140 


04 61 


0052 


1004 


1073 


1110 


□ U LL £ 


01 01 




02 04 


0206 


12 25 




BE END 


4261 


1 1 S7 


1152 








or rr 


3643 


lfl*»iO 


0353 


0363 


0426 


0 431 


OL 1 L ur 


40 24 


06 63 


0713 








BE LO OP 


42 52 


1150 


1163 








ot i>tu 


7A 


04 53 


0364 










40 4t> 


07 04 


0/00 








BETLP2 


4037 


06 76 


0707 








BF E I LD 


37 72 


05 74 


0352 


0371 


04 43 


0444 


BF IE LD 


0135 


04 56 


0050 


0351 


0372 


0 4 6 3 


BF LA Gl 


0102 


04 11 


0053 


0065 


0066 


022 5 


BF LA G2 


01 04 


04 12 


00 54 


0200 


02 01 


10 cc 0 


BG ET I 


41 73 


10 51 


0701 








BG 0 


36 06 


03 56 


0376 










35 55 


IOC 


0100 








BH I GH 


3417 


0065 


1354 








RM T r w? 
tsn 1 ij nc 


3513 


02 00 


1364 








B I D I FF 


4115 


0763 


0735 


0743 






H T ni 1 MP 


41 52 


10 23 


0774 


103 4 


1170 




H 1 RY 


34 00 


00 42 


0636 


1000 


0060 




B I NG 0 




13 54 


0057 








D T Kir no 


4 4 07 


13 64 


0174 










4610 


1 7 62 


0043 


0062 








43 77 




00 56 


0173 


00 64 


1 371 






2114 


0171 


0063 






BINT AP 


40 03 


06 41 


0244 








a T M T P V 

D 1 fit 1 n T 


4101 


07 45 


1017 








oi_ UU L 




0114 


0260 








D L U U T n 


35 4 7 


02 45 


02 37 








BL RF 8 


34 74 


015 5 


1357 








BL RF Q2 


35 24 


0216 


1367 








Pi t 




W 1 S 7 


1355 








BL Ti^ 


35 26 


02 20 


1365 








Pi 7 tc 4*s 


3501 


0162 


0203 








RM R A SF 

D f 1 P M O ^ 


4164 


10 42 


1010 


1025 






BMTAB 


4167 


1045 


0660 


1000 






8NFILE 


3600 


03 47 


0245 


0461 






BNUH 


0074 


0374 


2421 


2424 


2426 


1006 


BOADD 


4366 


1302 


1256 


1261 


1272 


1275 


BOFi EL 


0137 


0460 


0045 


0733 


0757 


0772 


BOLOO 


0136 


04 5 7 


0051 


0304 


0741 


0755 


BOLOP 


0103 


0413 


0047 


0776 


1024 


0103 


BOTTOM 


7400 


0300 


2016 


2301 






ePART2 


3504 


0167 


0073 


0147 


01/5 


0210 


8P0DE 


34 34 


0105 


02 61 








BPGINT 


4166 


1044 


0747 








BSCOMM 


3452 


0126 


0112 








BSETl 


4172 


1050 


0655 








BSTGO 


3557 


0260 


0101 








8SYS 


4206 


1100 


1105 


1125 







0102 05SI7 0512 0751 0754 



1010 
1311 
1235 



1175 2251 



1266 



SYM30L 


VALUE DEF 


REFERENCES 


BTAPE 


df^ A 1 
"ffO O i 


a 7 7 ^ 


0 / 60 


1313 




BTEMPl 


^162 


04 b3 


0 6 5 7 


0 66 5 


0712 


BTEMP2 


01 3v5 


04 b4 


06 61 


M A7 A 

too / 0 


0710 


BTEHP3 


0134 


04 b b 




V fVJO 


1145 


BTENO 


4 1 70 




07 30 






BTENT 


42 ^0 


10 72 


10 46 






BTTY 




00 66 


1 SAW 






BTTY2 






13 7 0 






BUFFER 


O *l ssic 




0 6 7 6 


0 6 7 7 


0701 








0616 


0 700 


0713 


BWORDl 


00 7 7 


03 77 


0360 


0373 


0407 


BW0R02 


01 00 




03 62 


0374 


0413 


CARD 


00 0 1 


0167 


03 03 


0 30 5 


06 72 








01 54 


1 551 


1606 


CBUFF 


6b 10 


10 57 


07 76 






CCDF 


to / 


1056 


X05l 






CCERR 


4b 0k! 


1510 


lb 03 






CCLOOP 


6 4 24 


07 56 


0 7 66 






CCMORE 


32 b6 


24 44 


24 53 






CCOM 


<32 bl 


24 3 7 


24 30 






CCOPY 


32 14 


23 77 


0507 


2 417 




ccauNT 


0 o ic/£f 


24 7 7 


2414 


24 52 




CDBUF 


616 4 


03 61 


0171 


0172 


0277 


COCDDC 


6 4 6 7 


102 3 


1014 






CDCONT 


6004 


0073 


03 16 


0317 




COCUNT 


6001 


00 70 


02 74 


0323 




COOONE 


61 22 


6?P A7 
vc O / 


02 31 






CDEOC 


6116 


0 2 b 6 








CDFLAG 


60 00 


00 b 1 


012 4 


0162 


0167 


CDFUNT 


A 1 K 0 


03 22 


03 12 






CD GO NG 


60^4 


02 00 


Ol^ A^ 






CDIL70 


6702 




1141 


1146 




CDINIT 


60 0 b 


0123 


0315 


0141 




CD ISK 


A A H 

^ O 


1134 


1135 


116 5 


1234 


CD ISKC 


66 01 


1135 


10 34 






CDISH 


61 14 


02 51 


01 56 


0261 




CDLOOP 


61 32 


03 02 


0324 






CDLl 10 


6024 


014 4 


0131 






CDL215 


61 61 


03 40 


02 60 






CDL240 


60 40 


01 63 


02 47 






CDNEXT 


61 03 


02 3 b 


01 61 






CDNXT2 


6104 


023 7 


0327 






CDPONT 


6156 


03 26 


01 74 






CDREAO 


60 2 b 


0150 


0607 


0155 


0230 


CO SWT 


60 03 






0 30 7 


0320 


CDTAB 


6235 


0401 


0315 






CERR 


4477 


1502 


0577 






CHECKI 


4bb6 


0513 


1337 


1473 


2000 


CI NS 


32 bb 


24 43 


2403 


2 460 


24 61 


CINPUT 


4610 


1232 


1277 


1671 




CJNS 


32 54 


24 42 


2425 


2 433 


2457 , 


CINU 


3252 


2440 


2401 






CL ITOl 


6461 


1015 


0733 






CL I T02 


6512 


1061 


0/34 






CLLOOP 


64 1^ 


07 44 


0751 






CLOOP 


6405 


0737 


0767 






CL OWER 


01 14 


04 32 


15 00 


150 5 




CNOTR 


6077 


0226 


0166 


0201 


0211 1 


CNTRLE 


0073 


0373 


0475 


0506 


0534 i 


COPY 


4bb4 


0506 


0323 


1133 


iibb : 


COREF 


6400 


0731 


0/53 


1032 


1040 


COUNT 


S3141 


0464 


1677 


1710 


1713 ; 



1150 116i^; 0506 0544 ^5556 ^562 0574 



COUT 6436 07 71 t;764 lk316 1^21 

C0UT8 3262 24!?i3 240i? 246J «:!464 

COUTPU 47iJ3 12«53 1327 1712 

COUTS 3261 244/ 2427 2431? 2462 

COUTU 32!57 244b 241ie 24bl 

CPBYTE 6;>li li560 i57 47 i^762 

CPLOOP 3225 2411 2471 

CPOINT 60B2 0071 0175 1^5222 e23/ i;276 ^330!? if3i£)6 ^322 '^325 

CROLTT 3b61 02/6 M302 0116 

CR IN IT 3b77 031b 0.507 

CHKPTN 6670 1244 1174 

CHK08 6661 1226 ll5k} 

CRlF ^5t>7 0517 fe)6l7 217 / 223b 

CRM303 3576 0314 \d6^-^ 

CSET 647b 1043 1^74b 0 75 / 1054 

CSIHE 3301 2476 2407 2415 2432 2434 2467 2470 

CSMALL 3245 2432 2423 

CUPPER 0115 0433 1537 i;551 

DATA 0131 0452 0306 0400 0702 0751 1230 1267 1273 0127 0133 0134 0212 

DBACK 2725 1774 1601 2001 2261 

DBADl 2527 1533 1525 

08AD2 Z554 1564 1544 1552 

08LANK 2701 1741 1722 1736 

DCHECK 2653 1712 1573 1744 1745 2015 2025 2036 

OCHP 6737 2144 

DCIM 6611 2106 

DCLA 6751 2140 1654 3131 

DCLOOP 6652 1213 1221 

OCLS 6742 2150 1137 2772 3130 

DCMA 6601 2100 1152 1153 2475 

OCOM 2622 1654 1705 

DCOMMA 2325 1261 1324 

DOAGIN 2227 1162 1214 1217 1232 1257 1266 

D08ACK 3145 2261 2132 2262 

ODCHEC 2561 1573 1510 1553 

DDCHEK 2360 1316 1237 1246 1256 1326 

DDCODE 2222 1155 0526 1157 1161 1227 1267 1321 

OOCOM 0737 1513 1516 1621 1332 

DDOI S 2243 1176 1160 

DDDISl 2765 2043 1631 1641 1651 

0DOIS2 2766 2044 1635 1643 1700 

DDEXIT 2642 1674 2161 

DDTIG 2562 1574 1561 1566 

OOFOUN 2564 1576 1411 

ODGLEN 2771 2047 1716 

DDGTEX 2373 1334 1177 

ODIN 3041 2137 2077 

OQISl 2557 1571 1517 1534 2043 

DD1S2 2560 1572 1560 1565 2044 

ODNAHE 2563 1575 141^} 

DD02 2531 1536 1520 

DDPAST 2773 2051 1741 

ODPOIN 2770 2046 1714 

DOT 3051 2147 2142 

ODTHER 2772 2050 1732 1737 

DUYREC 2767 2045 1074 

QEAC 6616 2103 

DEAL 6615 2102 

DECODE 4562 0525 0620 1056 2310 0042 0170 1404 0074 0142 1237 1276 1326 1670 1711 

OFBIGR 2755 2030 2017 

OriG 2600 1631 1574 

OFIRST 0075 0375 1501 1502 1512 1521 1527 1530 1540 1542 1547 1557 17?4 2013 2022 2034 

DFNAME 2372 1333 1233 



SYMBOL VALUE DEF REFERENCES 



DF OUND 3000 2B74 1576 

UFSC 6622 2112 

DFSE 6621 21k54 2543 

DGETNU 2334 1271 1222 1261 i2>'^id 16ZA 1314 

DGlEN 2706 I7t33 1577 1 763 2t.47 2264 

DIAL bbt>3 05^4 1544 

OUlBO 03 00 ^2 31 k^/24 

DIALEX 6176 14/4 1467 

OIALSY 03(50 0232 2itfl3 2014 

OIMA 6616 2111 2547 

DIML 661b 2110 2513 

DINOEX 241b 14^6 1374 

DIRECT 4b63 0b3i^ 0311 016b 1117 01^7 

DISC 4577 0562 0i5b 0216 0130 0165 1314 1343 1703 1722 

DISK 6623 210b 2037 206 2 21 73 221 5 2543 

DISKWO 0001 0155 0244 0246 

DI5PLA 4551 0500 0653 1 70 1 1703 I7ii0 1722 2274 1522 1656 1017 2603 3014 3123 

DIS»^EP 3173 2322 *i311 

OLCA 6755 2157 2777 

OLOC 6732 2141 1142 274b 

DLOR 6733 2142 3060 

OLOW 6735 2143 

OLEN 2414 140b 1^376 

DLOOK 2475 1500 

OLOOP 2304 1237 iii5b 

DLOOPl 2477 1502 1531 

DL00P2 2534 154^? 1554 

DL00P3 2660 1717 1743 

OLi^C 6753 2156 31301 

DL5757 2570 1602 1440 

OMAC 6626 2115 2562 

DHAR 6603 2101 ^?623 

DMAW 6605 2077 

OMNT 6743 2151 

DNAME 3064 2166 1575 2201 2213 2245 2252 2253 

DN6ACK 3145 2262 2244 

ONGLEN 3147 2264 2172 

ONOS 2674 1733 1731 

ONOT 3141 2250 2224 2 231 22 36 2 24 3 

ONOl 2516 1521 1507 1511 

DNPAST 3150 2265 2217 

DNPOIN 3146 2263 ^167 2173 

DOK 3112 2217 2200 2251 

DPAST 2717 1765 1600 1772 1775 2051 2265 

DPGETL 2371 1332 1205 1211 1273 1317 

OPOINT 2413 1404 1414 1662 2046 2263 

DPSTAR 2374 1335 l^m 

DPSi^IT 2375 1336 1202 

DHCA 6757 2160 

ORDA 6734 2145 

DHOC 6736 2146 1/15 1144 

DRDS 6741 2147 1660 3027 

DREENT 2453 1446 2134 

DRWC 6752 2lbb 

OSAC 6612 2107 

DSET 6631 11/2 1163 l2lb 1226 

DSETPl 6650 1211 1*^00 

DSIHE 2376 1337 1203 

OSKC 6745 2152 3020 3136 

DSKE 6747 2154 3023 3025 3133 

DSKT 6746 2153 

OSOURC 24 72 1465 1460 



r 



SY MRQL 


VALUE DEF 


REFERENCES 




6701 


13 05 


12 17 






DS YS 1 


4145 


1013 


12 76 






OS YS 2 


4157 


1030 


12 77 






UO TOO 


4206 


1105 


13 00 






DS YS 4 


W 53 


0624 


13 01 






DT ABl 


66 73 


1275 


1211 






OT HE RE 


27 33 


2005 


2026 


2037 


20 50 


DU P 


t>614 


1257 


1531 






ny BT Tr 


26 34 


16 66 


1663 






DX AC 


6645 


2114 


1157 


2555 




DX AL 


6643 


2113 


1155 


2527 




DY8ACK 


2567 


1601 


1443 






DY Gl. £N 


2565 


1577 


1412 






n Vftnnn 


2435 


1426 


1422 






DY LO OP 


24 25 


14 16 


14 24 






DY PA ST 


2566 


1600 


1416 






DY RE CT 


24 00 


13 71 


05 31 


2 04 5 




02AP 


3017 


2113 


2106 






01 CLOS 


2615 


1647 


1640 






DINOG 


2645 


1700 


1634 






D2CL0S 


26 51 


1704 


16 45 






ECHO 


0001 


0200 


0515 


0616 


1055 


ELOWER 


0112 


0430 


1523 






EUPPER 


0113 


0431 


1545 






EX IT 


0246 


0710 


0505 






EX ItTLO 


0251 


0713 


0715 






FBNUM 


0122 


0441 


0314 


0321 


1654 


FCORE 


0262 


0753 


0651 






FF ILEC 


1515 


0303 


0123 






FFTEMP 


1537 


0330 


0307 






FI LEC 


5406 


0122 


0230 


0176 


0477 


FNAME 


0124 


0443 


2414 


2423 


2430 


FS I2E 


0117 


0436 


2412 


2414 


2422 








0110 


0114 


0117 


FT YPE 


0121 


0440 


1026 


2141 


2155 








0256 


0 261 


0300 


FUN I T 


0120 


04 37 


0312 


0317 


0350 








1706 


1725 




FWHA T 


0123 


0442 


0306 


1446 


2074 


GA LL 


1243 


2230 


2342 






GCLE AR 


1006 


1665 


2314 






GCOUNT 


1123 


1771 


1676 


1712 




GCUNT 


4547 


1562 


1530 


1541 


1544 


Gf FNUH 
c>i'i wn 


4542 


1554 


1524 


1547 




GET A 


1417 


0512 


0440 


0453 


0455 


GE T I 


4525 


1537 


1051 


1557 


1021 


GETL 


4560 


0521 


1/05 


1724 


0502 


GGCLEA 


1302 


2314 


2i53 


2200 




GGIN 


1300 


2312 


2165 


2233 




GGINSE 


1102 


1770 


1707 


1726 




GGLIMC 


1253 


2252 


2145 


2271 


2272 


GGLINE 


1275 


2307 


2236 






GGMAIN 


1301 


2313 


2167 


2223 




GGM3 3 


12 74 


2304 


2257 






GGNUM 


1100 


1766 


1665 


1667 


1673 


GGTEXT 


1104 


1772 


1742 






GIN 


1052 


1735 


1670 


1674 


1716 


GINSER 


1200 


2136 


1770 


2146 


2237 


GINTO 


1070 


1753 


1763 






GLEFT 


1073 


1757 


1747 






GLIMIT 


1277 


2311 


2151 






GlINE 


1000 


1657 


0524 


1660 


1662 



0616 1055 2154 2156 2176 2212 2221 2230 



0321 1654 1655 2153 0644 0654 li2l l523 0466 



llol li.l 11^^ ^^11 ^^^^ 2^22 2227 2234 224i 2522 2532 2537 0270 0074 0202 0205 1416 

Jli 11^ ^^^^ ^^^^ ^^^^ ^^^^ ^^^^ 1^50 1650 1657 2023 2157 2406 2520 2522 2531 253? 2537 0105 

0122 0127 0141 0305 1112 1132 1154 0472 1266 1735 1744 ^ ^^^^ ^^^^ 

IMl ^^^i ^^^^ ^^^^ ^221 1455 2103 2l37 23l2 0076 0l6l 0223 0277 1116 0136 0l7l 0225 

0304 0307 0323 0415 0421 0425 0474 1003 1007 1557 0521 0525 0533 

0362 0363 1172 1224 1400 2552 2554 0133 0140 0145 0303 0642 1123 1525 0464 i241 1317 iZa^ 

0164 1114 0134 



SYMBOL VALUE DEF REFERENCES 

GLOOPl 1021 1701 1711 

GL00P2 1040 I7i^0 17J0 

GMAIN 1007 1666 1/31 iJl00 26U 

GMLEN 1101 1767 1736 

GNLF 1230 2176 2341 

GNL3i4 1307 2330 2216 

GNRNO 1242 2221 2215 

GNRUB 1232 220i? ^343 

GNUM 1276 261^ 1/66 2147 2163 2164 2206 2210 2232 

GNXIT 1210 2146 2345 2346 2347 23!?0 2351 2354 

GOK 4543 lt>55 1S42 

GPLACE 4540 1552 1545 

GPLCE2 4546 1561 1546 1555 1556 

GPUT 1226 2166 2162 

G3PG1 1315 23 41 2144 

GSPLl 1303 2322 2143 

GTEXT 1120 2015 1/04 1723 17 72 1334 

GUNIT 4537 1551 1526 

Gl 1022 1702 1661 1663 

G2 1041 1721 1664 

HHPOP 3321 2526 0115 2533 

hnPUSH 3313 2516 0117 2523 

HHTEMP 3327 2536 0^30 252i 2530 2537 

riPOP 4403 0114 0316 0641 0653 0200 

HPUSH 4404 0116 0167 1120 0140 0475 

IlEN 0111 0427 1375 1754 

INfBLOC 0102 0403 0411 0322 2402 il30 1135 1157 1260 1325 173? 1740 i746 1 747 

INDEX 0110 0426 1373 1515 1555 1653 2550 2551 

iNirOV 0222 0651 1061 

INSULT 6513 1066 1020 

IHmiJ 0103 0404 0413 0320 2400 1126 1257 1320 1707 

lOCD 0766 1562 1542 

lOCHEC 0743 1521 0514 1524 1556 

lOCP 0767 1563 1545 

JACKS 6204 1504 1471 1514 

KEVCHA 0072 0372 0657 1550 1555 2001 2007 

L3MAX 0054 2021 2^5 11 

L3NUM 0006 2020 1767 2021 1337 

LCo 6662 04 77 0673 1 42 6 1433 

LCF 6652 0474 0577 1362 

LEADER 4405 0120 02 33 122 2 02 04 0264 

LEFT 0000 0276 0/72 2014 U02 2300 2322 1427 1510 1762 2114 lli4 1066 2652 3106 3153 

LINE 4561 0523 1175 2l50 2214 

LINE8 1120 2014 2015 2033 

Lie 6654 0475 0602 

llEDER 3303 2503 0121 2512 

LLPtJ2 5777 l57l 1563 

LOCI 0001 0111 1401 1440 1441 2626 2627 2422 2427 

LPCOL 6322 0543 0554 0566 0571 0631 

lPCOHH 6316 05^4 0573 

LPCR 6337 0570 0620 

LPEJ2 6323 05;?0 1571 0557 0640 1422 

LPlND 6371 0640 0621 

lPEXIT 6320 0541 idb32 0535 k5635 

LPH204 6374 0647 ii5:?53 0570 1414 

LPM320 5776 1570 1560 

LPPUT 6333 0564 0i?34 0552 0556 0606 0627 

LPH 6664 0500 0604 1426 1433 

LPStQ 6321 0542 0520 

lPTAB 6361 0626 0617 0634 

LPTEST 6275 0513 0610 0517 

LPT2 5765 1556 0155 1562 1613 



iJYMaOL VALUE DEF HLFERENCES 



LP IT 


6<54>5 


0574 


LP088A 


66B0 


14^1 


LP0882 


6200 


1422 


LPiJSLP 


6/11 


1363 


LP;3dLT 


6720 


1372 


LPk3801 


024kJ 


06 /2 


LP08O2 


63 24 


0551 


LPi)303 


63 6Z 


1^555 


LP3804 


63 41 


05 72 


LP08O5 


6350 


0601 


LP 38 06 


63:>3 


06 04 


LPt3807 


6363 


0630 


LPi38PO 


bill 


14 i35 


LPi^SPT 


6737 


1426 


LPi58TS 


6703 


1355 


LPl 


6160 


0337 


LP2 


63 &6 


061/ 


LP21if 


6375 


06i?0 


LP 21 4 


6376 


0651 


LP4«3 


6373 


0646 


LSO 


66 61 


04 76 


LSE 


66 bl 


04 /3 


UUNOAD 


llb4 


2047 


L10 




0347 


L100 


0025 


0320 


L177 


0142 


0465 


L2 0 


00 20 


0312 


L203 


0026 


0321 


L^0 


0061 


0355 


L333 


0051 


0344 


L377 


4165 


1043 


L4 


0055 


0350 


L4 0 


41 71 


1047 


L4i30 


0040 


0333 


L4000 


003i$ 


0323 


L4020 


3550 


0246 


LtJ000 


0031 


0324 


Lb4 


0041 


0334 


Li57^?7 


0116 


0435 


L60 


0035 


0330 


L6000 


0032 


0325 


L7 


00 60 


03 54 


L70 


3774 


0576 


L700 


00 36 


0331 


L7i}00 


0033 


03 26 


L7400 


0064 


0360 


L77 


0024 


0317 


L7 7kJ0 


0053 


0346 


L7740 


0056 


0351 


L7757 


0034 


0327 


L7770 


0021 


0314 


L7 777 


00 47 


03 42 


MA INDI 


02 63 


0772 


MANDMl 


4422 


1412 


MAN0H2 


4423 


1413 


MAO«N 


4424 


1416 


MGOTO 


44 27 


1422 


MMEX IT 


1351 


24i35 


MM ORE 


4432 


142/ 


MMOVE 


1327 


2363 


MONE 


7240 


02 73 



01>67 
1427 
1427 
1367 
1377 
1405 
14id6 
14;27 
141i5 
1411 
14 12 
1413 
13 75 
1372 
10 27 
0523 
0524 
1431 
1427 
0626 

05 75 

2352 
0356 
2267 
2137 

06 62 
1414 
0165 
1220 
0/46 
14 65 
0666 
0535 
1024 
0116 
0516 
1325 
2116 

0120 

0175 
0442 
0433 
04 76 
0361 
1-^61 
1751 
0352 
0530 
1/67 
1212 
0621 
1423 
1422 
1407 
141ia 
2400 
1405 
0533 
0647 
2006 



1430 1431 1 432 
1430 1431 1432 
1371 
1400 



143 2 



1365 1374 

143 0 
136 3 



0361 1031 2275 
1255 1012 0246 ^530 
0223 

2 06 2 23 02 

2140 2506 0107 0136 0224 1032 1037 
0442 1036 



2113 2147 

0536 0545 0552 0137 2765 
2005 2625 



2127 2207 

0123 0142 

1770 2553 0134 0766 044i 1242 0632 10 46 1656 2241 2252 25l5 2 74 7 
1241 

0504 0542 

0737 0754 2507 2533 2563 

124^ 0^75 0566 ^^^^ ^^^^ ^'^^"^ ^^^^ ^^^^ ^^^"^ ^""^^ ^^^^ ^^^^ ^^^^ 1^6^ 
1760 

2205 0572 1012 1176 2512 2743 

0654 ^657 ^'^^ ^'"^ ^^^^ ^^^^ ^^'^^ 2^'^ 2170 04 77 0546 1005 104 4 I5l2 2477 2755 

1424 



2365 

^ nil III'. ^ i^ii ^ ^ ^ ... ... ,.,3 



iiY HdOL 


VA LUE 


DEF 


HtPE^ENCEb 










MURE 


44 13 


14 ii^3 


^3 76 


1411 


1412 


1413 


14 44 


1 4o 3 


14 6 4 


MO VL 


4b64 


05 32 


06 75 


0711 


24 11 


2 42i? 


0732 


1 4oi' 


14 37 




7*546 


02 75 


0151 


2514 












Ml fiO 


7^4^ 


02 /4 


i^lbl 


0 04 4 


07 /I 










Ml .3 




03 13 


03 14 


1 «>63 


17 77 










Ml 2 


00 3 7 


03 32 


















0023 


03 16 


1404 


1405 


.:4 45 


2 7 74 










*5632 


0403 


04^4 














Mi* 12 


01 4 4 


04 6 7 


10 64 


2504 


00 02 










M2 it? 




2 4 66 


1061 


0514 


l/;24 


1465 








Mi: 


5/7 6 


05 7^? 


0:>04 


0532 












MiJ 43 




04 71 


0416 


















03 43 


12 15 














M3 «22 


0(i)27 


0322 


2313 














M»5 4 




0345 


1464 














M3 4*^ 


0147 


04 72 


22 54 


2265 


04 22 


0 ^2 6 








Mv5 7 7 


01 45 


04 70 


0421 














M4 


02 22 


03 15 


13 76 


1377 


1235 


1 35 7 








M4 


00 56 


0352 


2261 


0656 


1144 


1010 


0244 


1 01 5 




M4 22 




03 61 


05 06 


0511 


06 63 


154 3 


t'521 


0606 


3000 


M4 3 




03 56 


14 70 














Mt> 4 


0042 


0335 


1322 














Mt>757 


0fe)57 


0353 


1420 


1720 


2176 










M6 


0063 


0357 


1367 


2501 












M6 0 


00 43 


03 36 


1^76 


1312 












M7 0 


00 44 


03 3 7 


1302 














M73 


0045 


03 4 0 


1230 














M77 


0046 


0341 


1251 














NO 


4567 


0540 


1425 


1451 


1703 


2156 


0447 


1075 


1444 


NOD I S 


3l5l 


22 7 3 


0541 














NONQDI 


31 55 


2300 


2275 














NO SUCH 


4560 


1632 


00 74 


3075 


00 76 


0077 


0110 


0111 


0112 


OH I G IN 


0130 


0451 


0046 


0370 


04 02 


0672 


0704 


0 73 6 


0745 


0UT3L0 


0104 


0405 


0412 


0315 


2404 


1122 


1146 


1156 


1261 


OU TNUM 


0106 


0407 


06 50 


0 30 4 


2413 


2556 


1270 


1356 


1733 


OU TUN I 


0105 


0406 


0414 


0313 


2411 


1124 


1263 


1^4 7 


1726 


QV£REX 


02 47 


0711 


14 72 














OVERLE 


0007 


1514 


1473 














palt 


07 30 


1500 


14 43 














PCHAR 


0736 


15 06 


1362 


1366 


1424 


1462 


14 63 


1467 


15 15 


PC OH 


0 714 


14 61 


14 55 














PC S*^ 


07 37 


1621 


1361 


1372 


1374 


1402 


14 12 






PDCA VR 


06 12 


13 47 


14 10 














PO I S 


0731 


1501 


1341 


1343 


1345 


134 6 


13 50 






POO 


06 36 


13 74 


1^71 














PF L I CK 


00 01 


0204 


1442 


147 7 


2620 










PFQUR 


7307 


0271 


0246 


1434 


0451 










PGETU 


0702 


1447 


13^7 


1373 


1444 


1472 


1514 






PHOR 


0732 


1502 


13 44 


1400 












PI.VSTl 


0601 


1336 


13 54 














PI P 


5S3 52 


05 02 


ir? 47 


0 32 4 


04 65 


0717 


1164 


122 3 


02 65 


PI PGO 


0213 


0635 


0624 














PIPL 


02 02 


0620 


06 2» 














piplst 


0210 


0631 


0623 














PI PP IP 


02 00 


06lt? 


0t>03 














PLOOP 


0663 


1424 


1445 














PMQRE 


0076 


03 76 


04 60 


0252 












pNon 


0651 


14 07 


1355 


1411 












PONE 


7201 


0266 


02 67 


1666 


1714 


2 231 


0!3 23 


1131 


1153 


POP 


4565 


0534 


1407 


1673 


2126 


2316 


1107 


0476 


1354 


POTHER 


33 72 


2623 


1^?0^ 


2630 












PPAST 


0635 


1373 


1365 















1661 ^Ji7 25^-7 2546 1136 ^17,^ l201 12^'5 i227 14 7^) 1474 1634 1645 2423 



SY MB OL 


VALUE DEF 


REFERENCES 










PPDIS 


06 00 


133b 


05 01 


1340 


1342 


1466 








PROP 


1360 


24 17 


05 35 


2 424 












PPSTAR 


0621 


13b7 


1474 














PPTEMP 


1366 


2427 


2413 


2421 


24 30 










PPUSH 


16b2 


2410 


0b37 


2415 












PRIGHT 


0711 


14b6 


14bl 














PS IX 


73 27 


02 72 
















PSTART 


07 34 


1504 


1351 


1452 


1453 


1460 


1335 






PSWI TC 


073t) 


lb0b 


1353 


1450 


1457 


1336 








PTA8LE 


0747 


lb2b 


1426 














PTHREE 


732!? 


0270 


0272 


0630 












PTWO 


y30t? 


0267 


0270 


0271 


1437 


1672 


0305 


1464 


2112 


PUSH 


4!366 


0b36 


1377 


1665 


2120 


2131 


2307 


0221 


01 77 


PUTL 


4 4 07 


0124 


1063 


1066 


2157 


2217 


0552 




PUTWOR 


4!>76 


0bb6 


0401 


0 46 4 


0703 


0716 








PVER 


0733 


1503 


1347 


1406 


1407 


1430 








RCRA 


66 32 


0107 


0202 














RCRB 


6634 


0110 
















RCRD 


66 74 


0113 


0271 














RCSD 


66 71 


0111 


0227 














RCSE 


66 72 


0112 


0165 














RCSF 


6631 


0106 


0200 














READ 


4b 71 


0544 


1402 


243 7 


06 46 


1012 


14 45 


146 4 


15 50 


RE ADEN 


0260 


0 7 26 


0713 


0714 










REAOIN 




a7 OiA 
%} f C*J 


0 7 1 2 


0 713 


0714 










READSK 


7626 


2442 


23 40 


2 721 












REMAKE 


n tA ti (A 


017b 


1116 


1132 


1512 


1523 








REPOIS 


<5 1 61 


2306 


0543 


2315 


2317 








REPlAC 


4^ 70 


0b 42 


21 25 


2 32 7 












RERR 




24 22 


23 42 














RESTAR 


0216 


06 4b 


06 15 


0 70 4 


07 10 










RESIST 


02 61 


0736 


06 67 














RE^^ERE 


7^53 


2313 


2431 














RFCOHM 


76 34 


2473 


2464 














RroaAD 


77 bl 


26 34 


25 00 


2645 












RFOBWC 


7 7 b0 


2635 


2510 


2552 












RFOISK 


It? 40 


0347 


0b 63 


0 36 4 












RFOMAR 


77 43 


2623 


2473 














RFGXT 


77 32 


25 74 


25 46 


2 554 












RF INST 


76 /b 


2534 


24 74 


2544 












RF IRST 


7!> 6t3 


2334 


2250 


2277 


2301 


2621 


3054 






RFIT 


7tjt36 


2322 


2267 














RFL377 


7744 


2624 


2525 


2556 












RFNOSK 


7704 


2543 


2537 


2541 












RFREAD 


76 26 


24 63 


1231 


1232 


24 70 


2570 


2574 


2575 




RFWRIT 


7630 


2466 


2 4 67 












RF08 


0001 


2215 


0244 


0246 


0421 


0560 


0700 


0 702 


00 72 








2004 


2026 


20 50 


2121 


2137 


2162 


2203 








1037 


1121 


1572 










RF08NO 


7734 


2603 


2542 


2605 












RF0dN2 


77 52 


2652 


2604 














RFfejaR 


7b 01 


2226 


0103 


0104 


0105 


0106 


2350 






RF0BW 


7b0b 


22 33 


0124 


0125 


0126 


0127 








RFl0fe53 


774b 


2625 


2550 












RK8A0 


733b 


3106 


3015 














RKBOP 


/2b7 


2764 


30 40 














RKBST 


6213 


151/ 


1203 


1475 












RKBTST 


07b0 


1541 


1202 


120 7 


1245 


1476 


1501 






RKCHAR 


6164 


1462 


1246 












RKCOMM 


7234 


2740 


27 31 














RKCUNT 


0012 


30 77 


2/61 


3037 












RKOLDR 


7334 


3060 


2740 















SYMBOL 


VALUE 


DEF 


REFERENCES 


HKOH IV 


0X0/ 


0422 


0167 


274 4 




HKDUNl 




3037 


3026 






KKHANG 


76tl 


3132 


313/ 






KK INST 


12 lb 


30 04 


2/41 


3 02 4 




HK IKST 


7330 


3054 


2/ 52 






RKLOC 


73 32 


30 56 


27 54 






HKLOCC 


00 14 


30 7;> 


2/ 56 


276 4 


2/66 


RK i!5 


73 27 


3053 


3030 






RKN80P 


7i^63 


27/1 


2/62 


314 0 




RKNOSK 


7306 


0020 


30 10 


3012 




RKorr 


7351 


3122 


Ov QC. 






RK0FF2 


73 70 


3153 


3124 






RKOUT 


7331 


305iJ 


2/b7 






RKREAD 


7226 


2730 


12 30 


2 73 5 


30 34 


RKSCKC 


731!? 


302/ 


31 35 






RKSETU 


6671 


1245 


12 06 






RKSTAT 


4^76 


16 70 


16 52 


1725 


X t *♦ *♦ 


RKSTTP 


4607 


1725 


1717 






RK TRCK 


00 13 


30 76 


2/53 


2 76 7 




RKUM IT 


7333 


305/ 


2 742 


2 74 6 




RKWR IT 


72 30 


2733 




9 1^ c 


31 25 


RK70 


lt>b6 


03/0 


016 4 


0 354 


If 0 3 / 


RLOC 


7i?63 


2332 






261/ 


RNUM 


71564 


2333 


2246 


2 26 0 


2265 


ROK 


7^26 


2260 


23 04 


2 32 5 




RQR6 


4!ji?0 


04/6 


1454 


1 ^1 4 


xc ?o 


ROUT 


7t?66 


2335 


22 53 


2 26 3 


23 00 


RR8AD 


7!?7t> 


2405 


2 424 






RRC 


7i>07 


2235 


2231 






RREREO 


76 25 


2435 


24 30 






RRERR 


7573 


2342 


22 72 






RRFI RS 


7742 


2621 


25 22 


2 53 0 




RRGOOD 


7541 


22 73 


2313 


t 0 J. 3 




RRLOC 


77 40 


2617 


2 4 76 






RROUT 


7741 


26 20 


25 03 






RRR 


7571 


2340 


C C O 7 






RRRET 


75 74 


2343 








RHRT 


7567 


2336 


222 7 






RR T 


75 72 


2341 




1 

C Ci X 




RR TRY 


7537 
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